OFFSET
1,1
EXAMPLE
After 73 the next term is 733 = 73*10 + 3.
MATHEMATICA
plm3[n_]:=Module[{k=1}, While[!PrimeQ[10k*n+3], k++]; 10k*n+3]; NestList[ plm3, 7, 15] (* Harvey P. Dale, Apr 04 2019 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Jan 03 2006
EXTENSIONS
More terms from Joshua Zucker, Jan 11 2006
STATUS
approved