A082563 a(1) = 3; for n>=1, a(n+1) is the smallest palindromic prime with a(n) as a central substring.
3, 131, 11311, 121131121, 1212113112121, 36121211311212163, 303612121131121216303, 7230361212113112121630327, 30723036121211311212163032703, 723072303612121131121216303270327, 1472307230361212113112121630327032741, 114723072303612121131121216303270327411
Offset: 1
Examples
As a triangle: ........3 .......131 ......11311 ....121131121 ..1212113112121 36121211311212163
Links
- Clark Kimberling, Table of n, a(n) for n = 1..200
Programs
-
Mathematica
s = {3}; 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 *)
Extensions
Name changed by Arkadiusz Wesolowski, Sep 15 2011
More terms from Clark Kimberling, Sep 23 2015
Comments