|
|
A046492
|
|
Palindromic primes expressible as the sum of 3 consecutive palindromic primes.
|
|
1
|
|
|
383, 90709, 94849, 3698963, 308898803, 330595033, 333080333, 399191993, 906989609, 969787969, 33064846033, 36907970963, 39008680093, 39301810393, 90007970009, 96669596669, 3003899983003, 3006918196003, 3033959593303, 3090048400903, 3306986896033, 3336904096333
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
969787969 = 323222323 + 323232323 + 323333323.
|
|
MATHEMATICA
|
Select[Total/@Partition[Select[Prime[Range[10^7]], PalindromeQ], 3, 1], PrimeQ[#]&& PalindromeQ[ #]&] (* The program generates the first 8 terms of the sequence. To generate more increase the Range constant. *) (* Harvey P. Dale, Sep 01 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|