A262497 Minimal nested palindromic primes with seed 11111.
11111, 121111121, 71211111217, 3712111112173, 98371211111217389, 129837121111121738921, 3312983712111112173892133, 1063312983712111112173892133601, 12106331298371211111217389213360121, 781210633129837121111121738921336012187
Offset: 1
Examples
As a triangle: 11111 121111121 71211111217 3712111112173 98371211111217389 129837121111121738921 3312983712111112173892133 1063312983712111112173892133601
Links
- Clark Kimberling, Table of n, a(n) for n = 1..200
Crossrefs
Cf. A261881.
Programs
-
Mathematica
s0 = "11111"; 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 *)
Comments