A260459 Minimal nested palindromic primes with seed 010.

30103, 333010333, 33330103333, 9333301033339, 12933330103333921, 121293333010333392121, 3812129333301033339212183, 15381212933330103333921218351, 101538121293333010333392121835101, 3910153812129333301033339212183510193

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 A260459, the seed is not an integer, so that the offset is 2.)

Examples

			As a triangle:
           010
          30103
        333010333
       33330103333
      9333301033339
    12933330103333921
  121293333010333392121
3812129333301033339212183
		

Crossrefs

Cf. A261881.

Programs

Mathematica

s0 = "010"; 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 *)