OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..300
MATHEMATICA
lmpt[n_]:=Module[{k=1}, While[!PrimeQ[k*n*10+1], k++]; k*n*10+1]; NestList[ lmpt, 61, 20] (* Harvey P. Dale, Aug 27 2016 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Jan 03 2006
EXTENSIONS
More terms from Joshua Zucker, Jan 11 2006
STATUS
approved