|
|
A046493
|
|
Primes expressible as the sum of 3 consecutive palindromic primes.
|
|
0
|
|
|
23, 383, 463, 523, 857, 1039, 1109, 1483, 1867, 2341, 2503, 12149, 32413, 37963, 38873, 39983, 43013, 44533, 52103, 53623, 56053, 59273, 90709, 91309, 91909, 93329, 94849, 96259, 111409, 180007, 215461, 219001, 219911, 224351, 233941
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
12149 = 919 + 929 + 10301.
|
|
MATHEMATICA
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|