OFFSET
1,2
EXAMPLE
a(3) = 15 because 3, 5 and 7 are the A073882(3) = 3 primes in the interval from 3 to 3^2 inclusive and 3 + 5 + 7 = 15.
MATHEMATICA
Join[{0}, Table[Sum[Prime[i], {i, If[PrimeQ[n], PrimePi[n], PrimePi[n]+1], PrimePi[n^2]}], {n, 2, 39}]] (* James C. McMahon, Apr 02 2024 *)
PROG
(PARI) for(n=1, 50, print1(sum(k=n, n^2, if(isprime(k), k)), ", "))
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Rick L. Shepherd, Jul 02 2005
STATUS
approved