login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Primes p mentioned in A155214.
2

%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