A172463 Partial sums of A006567.

13, 30, 61, 98, 169, 242, 321, 418, 525, 638, 787, 944, 1111, 1290, 1489, 1800, 2137, 2484, 2843, 3232, 3933, 4642, 5375, 6114, 6857, 7608, 8369, 9138, 10045, 10982, 11923, 12876, 13843, 14814, 15797, 16788, 17797, 18818, 19849, 20882, 21943, 23012, 24103

Offset: 1

Author

Jonathan Vos Post, Feb 03 2010

Keywords

• base
• easy
• less
• nonn
• changed

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A006567.

Programs

Mathematica

emirpQ[n_]:=Module[{idn=IntegerDigits[n],ridn},ridn=Reverse[idn];idn!= ridn && PrimeQ[FromDigits[ridn]]]; Accumulate[Select[Prime[ Range[ 200]], emirpQ]] (* Harvey P. Dale, Oct 25 2011 *)

Formula

a(n) = Sum_{i=1..n} A006567(n).

Extensions

Corrected by Harvey P. Dale, Oct 25 2011