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