OFFSET
1,1
COMMENTS
The minimal nested palindromic primes with seed 3; see A261881 for a guide to related sequences.
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..200
EXAMPLE
As a triangle:
........3
.......131
......11311
....121131121
..1212113112121
36121211311212163
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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Benoit Cloitre, May 04 2003
EXTENSIONS
Name changed by Arkadiusz Wesolowski, Sep 15 2011
More terms from Clark Kimberling, Sep 23 2015
STATUS
approved