Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #5 Jun 24 2013 10:11:31
%S 2,3,71,97,103,331,4091,5879,7207,7639,17123,17383,20809,46889,47363,
%T 139493,142969,150869,154111,154753,155663,162419,165059,166739,
%U 174893,179989,184273,190759,197311,199909,270527,280613
%N Primes p mentioned in A155214.
%H Ulrich Krug and Aurelien Herault, <a href="/A145531/b145531.txt">Table of n, a(n) for n = 1..83</a>
%t palQ[n_] := Reverse[x = IntegerDigits[n]] == x; Select[Prime[Range[25000]], palQ[# + Prime[#]] &] (* _Jayanta Basu_, Jun 24 2013 *)
%K nonn
%O 1,1
%A Ulrich Krug (leuchtfeuer37(AT)gmx.de), Jan 22 2009, Mar 02 2009, Mar 04 2009