OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..100
MATHEMATICA
lm9[n_]:=Module[{k=1}, While[!PrimeQ[10*k*n+9], k++]; 10*k*n+9]; NestList[ lm9, 7, 15] (* Harvey P. Dale, Jan 16 2015 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Jan 03 2006
EXTENSIONS
More terms from Joshua Zucker, Jan 11 2006
More terms from Harvey P. Dale, Jan 16 2015
STATUS
approved