|
%I #18 Sep 24 2015 01:24:22
%S 3,131,11311,121131121,1212113112121,36121211311212163,
%T 303612121131121216303,7230361212113112121630327,
%U 30723036121211311212163032703,723072303612121131121216303270327,1472307230361212113112121630327032741,114723072303612121131121216303270327411
%N a(1) = 3; for n>=1, a(n+1) is the smallest palindromic prime with a(n) as a central substring.
%C The minimal nested palindromic primes with seed 3; see A261881 for a guide to related sequences.
%H Clark Kimberling, <a href="/A082563/b082563.txt">Table of n, a(n) for n = 1..200</a>
%e As a triangle:
%e ........3
%e .......131
%e ......11311
%e ....121131121
%e ..1212113112121
%e 36121211311212163
%t s = {3}; Do[NestWhile[# + 1 &, 1, ! PrimeQ[tmp = FromDigits[Join[#, IntegerDigits[Last[s]], Reverse[#]] &[IntegerDigits[#]]]] &]; AppendTo[s, tmp], {15}]; s
%t (* _Peter J. C. Moses_, Sep 01 2015 *)
%Y Cf. A053600, A075597, A261881.
%K nonn,base
%O 1,1
%A _Benoit Cloitre_, May 04 2003
%E Name changed by _Arkadiusz Wesolowski_, Sep 15 2011
%E More terms from _Clark Kimberling_, Sep 23 2015
| 