OFFSET
1,3
COMMENTS
Equivalently, a(n) generates primes of the form (100^(1+a(n)) - 1) * 42/99 + 1. - Mohsen Hozan, Jan 23 2015
MATHEMATICA
t = 1; Do[ t = t*100 - 57; If[PrimeQ[t], Print[n]], {n, 0, 3000}]
robinsonQ[n_] := PrimeQ[(100^(1 + n) - 1) * 42/99 + 1]; Select[Range[200], robinsonQ] (* Robert G. Wilson v, Jan 23 2015 *)
PROG
(PARI) t=1; for(n=0, 10^6, t=100*t-57; if(ispseudoprime(t), print1(n, ", "))); \\ Joerg Arndt, Nov 21 2014
(PFGW) ABC2 1+(100^(1+$a)-1)*42/99
a: from 0 to 28000 \\ Charles R Greathouse IV, Mohsen Hozan, Jan 23 2015
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Ray Chandler, Aug 04 2005
EXTENSIONS
a(13)-a(17) from Mohsen Hozan, Feb 10 2015
STATUS
approved