A062009 a(n) = floor(Sum_{k=1..n} sqrt(prime(k))).

1, 3, 5, 8, 11, 14, 19, 23, 28, 33, 39, 45, 51, 58, 65, 72, 80, 87, 96, 104, 113, 121, 131, 140, 150, 160, 170, 180, 191, 201, 213, 224, 236, 248, 260, 272, 285, 297, 310, 323, 337, 350, 364, 378, 392, 406, 421, 436, 451, 466, 481, 497, 512, 528, 544, 560, 577

Offset

1,2

Links

Harry J. Smith, Table of n, a(n) for n = 1..1000

Mathematica

Table[Floor[Sum[Sqrt[Prime[i]], {i, n}]], {n, 100}] (* Wesley Ivan Hurt, Jan 28 2014 *)

Prog

(PARI) { default(realprecision, 100); for (n=1, 1000, write("b062009.txt", n, " ", floor(sum(k=1, n, sqrt(prime(k))))) ) } \\ Harry J. Smith, Jul 29 2009
(SageMath)
@CachedFunction
def b(n):
    if (n==0): return 0
    else: return b(n-1) + sqrt(nth_prime(n))
[floor(b(n)) for n in (1..100)] # G. C. Greubel, May 03 2022

Crossrefs

Cf. A062048.

Sequence in context: A060432 A156023 A261223 * A062484 A348450 A360628

Adjacent sequences: A062006 A062007 A062008 * A062010 A062011 A062012

Keyword

easy,nonn

Author

Jason Earls, Jun 27 2001

Extensions

Description corrected by Dean Hickerson, Jun 30 2001

Status

approved