%I
%S 23,383,463,523,857,1039,1109,1483,1867,2341,2503,12149,32413,37963,
%T 38873,39983,43013,44533,52103,53623,56053,59273,90709,91309,91909,
%U 93329,94849,96259,111409,180007,215461,219001,219911,224351,233941
%N Primes expressible as the sum of 3 consecutive palindromic primes.
%H P. De Geest, <a href="http://www.worldofnumbers.com/palpri.htm">World!Of Palindromic Primes</a>
%e 12149 = 919 + 929 + 10301.
%t palQ[n_] := Reverse[x = IntegerDigits[n]] == x; t = Select[Prime[Range[7750]], palQ]; Select[Total /@ Partition[t, 3, 1], PrimeQ] (* _Jayanta Basu_, Jun 26 2013 *)
%Y Cf. A000040, A002385.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Sep 15 1998
