A127719 Floor of square root of sum of squares of n consecutive primes.

2, 3, 6, 9, 14, 19, 25, 32, 39, 48, 57, 68, 80, 90, 102, 115, 129, 143, 158, 173, 187, 203, 220, 237, 256, 275, 294, 313, 331, 350, 372, 394, 418, 440, 465, 488, 513, 538, 564, 590, 616, 642, 670, 697, 724, 751, 780, 811, 843, 873

Offset

1,1

Links

Table of n, a(n) for n=1..50.

Formula

a(n) = A000196(A024450(n)). - R. J. Mathar, Jan 28 2007

Maple

A024450 := proc(n) local i; add((ithprime(i))^2, i=1..n); end: A000196 := proc(n) floor(sqrt(n)); end: A127719 := proc(n) A000196(A024450(n)); end: for n from 1 to 30 do printf("%d, ", A127719(n)); od; # R. J. Mathar, Jan 28 2007

Mathematica

a = {}; k = 0; Do[k = k + (Prime[x])^2; AppendTo[a, Floor[Sqrt[k]]], {x, 1, 50}]; a

Crossrefs

Cf. A127720, A127721.

Sequence in context: A191184 A299100 A008823 * A074150 A261243 A061925

Adjacent sequences: A127716 A127717 A127718 * A127720 A127721 A127722

Keyword

nonn

Author

Artur Jasinski, Jan 25 2007

Status

approved