OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..10
MATHEMATICA
t={}; Do[m=n; p=10^n+10^(n-3)-1; If[PrimeQ[p], AppendTo[t, p]], {n, 300}]; t (* Vincenzo Librandi, Jul 17 2012 *)
PROG
(PARI) f(n, z) = for(x=z, n, y=10^x+10^(x-z)-1; if(ispseudoprime(y), print1(y", ")))
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Cino Hilliard, Jul 28 2004
STATUS
approved