%I #19 Aug 11 2024 14:41:31
%S 383,90709,94849,3698963,308898803,330595033,333080333,399191993,
%T 906989609,969787969,33064846033,36907970963,39008680093,39301810393,
%U 90007970009,96669596669,3003899983003,3006918196003,3033959593303,3090048400903,3306986896033,3336904096333
%N Palindromic primes expressible as the sum of 3 consecutive palindromic primes.
%H Chai Wah Wu, <a href="/A046492/b046492.txt">Table of n, a(n) for n = 1..7456</a>
%H P. De Geest, <a href="https://www.worldofnumbers.com/palpri.htm">World!Of Palindromic Primes</a>
%e 969787969 = 323222323 + 323232323 + 323333323.
%t 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 *)
%Y Cf. A002385.
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Sep 15 1998
%E a(15)-a(22) from _Chai Wah Wu_, Sep 12 2019