|
%I #23 Oct 13 2019 02:35:11
%S 2,5,10,17,28,129,260,411,592,783,1096,1449,1822,2205,2932,3689,4476,
%T 5273,6192,7121,17422,27923,38524,49835,61246,73667,86388,99209,
%U 112540,126371,140302,154643,169384,184835,200386,216447,232808,249369,266030,283501
%N Sum of first n palindromic primes A002385.
%C The subsequence of prime partial sum of palindromic primes begins: 2, 5, 17, 5273, 7121, 154643, 283501. What is the smallest nontrivial (i.e., multidigit) palindromic prime partial sum of palindromic primes? [_Jonathan Vos Post_, Feb 07 2010]
%H Vincenzo Librandi, <a href="/A046485/b046485.txt">Table of n, a(n) for n = 1..700</a>
%H Patrick De Geest, <a href="http://www.worldofnumbers.com/palpri.htm">World!Of Palindromic Primes</a>
%F a(n) = Sum_{i=1..n} A002385(i) = Sum_{i=1..n} {p prime and R(p) = p, i.e., primes whose decimal expansion is a palindrome}. [_Jonathan Vos Post_, Feb 07 2010]
%t t = {}; b = 10; Do[p = Prime[n]; i = IntegerDigits[p, b]; If[i == Reverse[i], AppendTo[t, p];(*Print[p.FromDigits[i]]*)], {n, 4000}]; Accumulate[t] (* _Vladimir Joseph Stephan Orlovsky_, Feb 23 2012 *)
%t Accumulate[Select[Prime[Range[10000]],IntegerDigits[#]==Reverse[ IntegerDigits[#]]&]] (* _Harvey P. Dale_, Aug 10 2013 *)
%Y Cf. A002385, A007504, A046489.
%Y Cf. A000040, A007500, A006567, A016041, A029732, A117697. [_Jonathan Vos Post_, Feb 07 2010]
%K nonn,base
%O 1,1
%A _Patrick De Geest_, Sep 15 1998
%E Offset set to 1 by _R. J. Mathar_, Feb 21 2010
|
