OFFSET
1,1
COMMENTS
Inserted digits are 0, 6, 2, 3. If we search only for minimal inserted digit and start with 11, the sequence ends at 5th term. - Ray Chandler, Feb 25 2005
EXAMPLE
Start with 11; insert 0 between digits, 101 is prime; insert 6 between digits, 16061 is prime, etc.
MATHEMATICA
nxt[n_]:=SelectFirst[FromDigits/@Table[Riffle[IntegerDigits[n], i], {i, 0, 9}], PrimeQ]; NestList[nxt, 11, 4] (* The program uses the SelectFirst function from Mathematica version 10 *) (* Harvey P. Dale, Aug 08 2015 *)
CROSSREFS
KEYWORD
fini,nonn,base
AUTHOR
Zak Seidov, Feb 23 2005
EXTENSIONS
Corrected by Ray Chandler, Feb 25 2005
STATUS
approved