|
|
A103992
|
|
Palindromic primes: insert a digit between digits of the previous term.
|
|
0
|
|
|
|
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
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|