A145531 Primes p mentioned in A155214.

2, 3, 71, 97, 103, 331, 4091, 5879, 7207, 7639, 17123, 17383, 20809, 46889, 47363, 139493, 142969, 150869, 154111, 154753, 155663, 162419, 165059, 166739, 174893, 179989, 184273, 190759, 197311, 199909, 270527, 280613

Offset: 1

Author

Ulrich Krug (leuchtfeuer37(AT)gmx.de), Jan 22 2009, Mar 02 2009, Mar 04 2009

Keywords

• nonn

Links

• Ulrich Krug and Aurelien Herault, Table of n, a(n) for n = 1..83

Programs

Mathematica

palQ[n_] := Reverse[x = IntegerDigits[n]] == x; Select[Prime[Range[25000]], palQ[# + Prime[#]] &] (* Jayanta Basu, Jun 24 2013 *)