A222116 Palindromic primes whose sum of digits is also a palindromic prime.

2, 3, 5, 7, 11, 101, 131, 151, 191, 313, 353, 10301, 10501, 11311, 13331, 30103, 1003001, 1123211, 1201021, 1221221, 1303031, 1311131, 3001003, 3103013, 100030001, 100050001, 100111001, 100131001, 101030101, 110111011, 110232011, 111010111, 111050111

Offset

1,1

Links

Giovanni Resta, Table of n, a(n) for n = 1..1000

Example

353, a palindromic prime, is in the list since 3+5+3=11 is also a palindromic prime.

Mathematica

palQ[n_]:=FromDigits[Reverse[IntegerDigits[n]]]==n; t={}; Do[If[palQ[p=Prime[n]] && palQ[td=Total[IntegerDigits[p]]] && PrimeQ[td], AppendTo[t, p]], {n, 6400000}]; t

Crossrefs

Intersection of A082806 and A082208.

Sequence in context: A083712 A082806 A157868 * A229107 A109574 A084837

Adjacent sequences: A222113 A222114 A222115 * A222117 A222118 A222119

Keyword

nonn,base

Author

Jayanta Basu, May 13 2013

Status

approved