Error in b-file - A143512

[Frank M Jackson]

The b-file for A143512 contains errors. All terms should be odd but at
line 3735 there is an even term. Thereafter another 5048 even terms can
be found. I suspect, that for the larger terms, the generating program
was susceptible to rounding-up/accuracy errors.

Can someone correct the accuracy issue and generate a corrected 10000
term b-file?

Also the b-file for A143513 has similar problems.

Kind regards
Frank Jackson

PS. I have used the following Mma program for A143512. It is slow and
only generates 763 terms.

fnum = Times @@ {3, 5, 17, 257, 65537};
fQ[n_] := PowerMod[fnum, n, n] === 0;
Table[If [fQ[n], n, Nothing], {n, 1, 10^9}]
(*using _Bruno Berselli_ program in A003593*)

[Amiram Eldar]

I corrected the code and b-file in A143512.

Where is the first error in the b-file in  A143513?

Best,

Amiram

--
You received this message because you are subscribed to the Google Groups "SeqFan" group.
To unsubscribe from this group and stop receiving emails from it, send an email to seqfan+un...@googlegroups.com.
To view this discussion visit https://groups.google.com/d/msgid/seqfan/629cbf99-fc8b-4f24-9161-5b4e0856806d%40matrix-logic.co.uk.