OFFSET
0,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..200
EXAMPLE
3, 13, 113, 2113, 12113, 612113, ...etc. are primes.
MATHEMATICA
nxt[{cnc_, a_}]:=Module[{k=1}, While[!PrimeQ[k*10^IntegerLength[ cnc]+ cnc], k++]; {k*10^IntegerLength[cnc]+cnc, k}]; NestList[nxt, {3, 3}, 80][[All, 2]] (* Harvey P. Dale, Jan 17 2022 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 04 2003
EXTENSIONS
More terms from Ray Chandler, Nov 07 2003
STATUS
approved