A030680 Smallest nontrivial extension of n-th palindromic prime which is a prime.

23, 31, 53, 71, 113, 1013, 1319, 1511, 1811, 1913, 3137, 3533, 3733, 3833, 72701, 7573, 7873, 79757, 9199, 9293, 1030111, 105019, 106013, 113111, 114113, 124213, 127217, 128213, 133319, 138311, 139313, 143413, 147419, 1545101, 1555111, 160619, 163613, 165611

Offset

1,1

Links

Chai Wah Wu, Table of n, a(n) for n = 1..10000

Mathematica

d[n_]:=IntegerDigits[n]; Table[i=1; While[!PrimeQ[x=FromDigits[Flatten[{d[n], d[i]}]]], i=i+2]; x, {n, Select[Prime[Range[2000]], Reverse[x=d[#]]==x &]}] (* Jayanta Basu, May 24 2013 *)

Crossrefs

Sequence in context: A177981 A064792 A030670 * A330162 A006203 A153635

Adjacent sequences: A030677 A030678 A030679 * A030681 A030682 A030683

Keyword

nonn,base

Author

Patrick De Geest

Extensions

a(15) and a(34) corrected by Chai Wah Wu, May 24 2016

Status

approved