OFFSET
1,1
MATHEMATICA
nxt[n_]:=Module[{k=1}, While[CompositeQ[10*k*n+1], k++]; 10*k*n+1]; NestList[ nxt, 7, 20] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 04 2019 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Jan 03 2006
EXTENSIONS
More terms from Joshua Zucker, Jan 11 2006
STATUS
approved