1,3

Next term, if it exists, is > 3000.

t = 1; Do[ t = t*100 - 57; If[PrimeQ[t], Print[n]], {n, 0, 3000}]

Cf. A110704.

Sequence in context: A027362 A068194 A134459 this_sequence A139439 A119330 A084644

Adjacent sequences: A110702 A110703 A110704 this_sequence A110706 A110707 A110708

nonn,more

Ray Chandler (rayjchandler(AT)sbcglobal.net), Aug 04 2005