A260250 Minimal nested palindromic primes with seed 000000000.

1300000000031, 713000000000317, 1471300000000031741, 12147130000000003174121, 3121471300000000031741213, 1213121471300000000031741213121, 33121312147130000000003174121312133, 323312131214713000000000317412131213323

Offset: 2

Author

Clark Kimberling, Sep 24 2015

Keywords

• nonn
• base
• easy

Comments

Let s be a palindrome and put a(1) = s. Let a(2) be the least palindromic prime having s in the middle; for n > 2, let a(n) be the least palindromic prime having a(n-1) in the middle. Then (a(n)) is the sequence of minimal nested palindromic primes with seed s. (For A260250, the seed is not an integer, so that the offset is 2.)

Examples

			As a triangle:
           000000000
         1300000000031
        713000000000317
      1471300000000031741
    12147130000000003174121,
   3121471300000000031741213
1213121471300000000031741213121,
		

Links

• Clark Kimberling, Table of n, a(n) for n = 2..200

Crossrefs

Cf. A261881.

Programs

Mathematica

s0 = "000000000"; s = {ToExpression[s0]};Do[NestWhile[# + 1 &, 1, ! PrimeQ[tmp = FromDigits[Join[#, IntegerDigits[Last[s], 10, Max[StringLength[s0],Length[IntegerDigits[Last[s]]]]], Reverse[#]]&[IntegerDigits[#]]]] &]; AppendTo[s, tmp], {10}]; s0 <> ", " <> StringTake[ToString[Rest[s]], {2, -2}]
(* Peter J. C. Moses, Sep 23 2015 *)