A261881 Minimal nested palindromic primes with seed 0.
0, 101, 31013, 3310133, 933101339, 1093310133901, 30109331013390103, 333010933101339010333, 33330109331013390103333, 993333010933101339010333399, 104993333010933101339010333399401, 7810499333301093310133901033339940187
Offset: 1
Examples
As a triangle: ........0 .......101 ......31013 .....3310133 ....933101339 ..1093310133901 30109331013390103
Links
- Clark Kimberling, Table of n, a(n) for n = 1..300
Crossrefs
Cf. A261818.
Programs
-
Mathematica
s = {0}; Do[NestWhile[# + 1 &, 1, ! PrimeQ[tmp = FromDigits[Join[#, IntegerDigits[Last[s]], Reverse[#]] &[IntegerDigits[#]]]] &]; AppendTo[s, tmp], {15}]; s (* Peter J. C. Moses, Sep 01 2015 *)
Comments