OFFSET
0,1
COMMENTS
First difference of A109724.
LINKS
Ray Chandler, Table of n, a(n) for n = 0..9999
MATHEMATICA
f[n_] := Sum[Prime[k], {k, n}]; Table[f[(n+1)^2] - f[n^2], {n, 0, 34}]
With[{nn=40}, Total/@TakeList[Prime[Range[nn^2]], Range[1, 2nn-1, 2]]] (* Requires Mathematica version 11 or later *) (* Harvey P. Dale, Jan 05 2019 *)
PROG
(Python)
from sympy import prime
def a(n): return sum(prime(i) for i in range(n*n+1, (n+1)**2+1))
print([a(n) for n in range(37)]) # Michael S. Branicky, Feb 15 2021
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Giovanni Teofilatto, Aug 10 2005
EXTENSIONS
Edited and extended by Ray Chandler, Aug 11 2005
STATUS
approved