A127721 Floor of square root of sum of squares of n consecutive numbers.

1, 2, 3, 5, 7, 9, 11, 14, 16, 19, 22, 25, 28, 31, 35, 38, 42, 45, 49, 53, 57, 61, 65, 70, 74, 78, 83, 87, 92, 97, 102, 106, 111, 116, 122, 127, 132, 137, 143, 148, 154, 159, 165, 171, 177, 183, 188, 194, 201, 207, 213, 219, 225, 232, 238, 245, 251, 258, 264, 271, 278

Offset: 1

Author

Artur Jasinski, Jan 25 2007

Keywords

• nonn

Links

• Alois P. Heinz, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000196, A000330, A127719, A127720.

Programs

Maple

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

Mathematica

a = {}; k = 0; Do[k = k + x^2; AppendTo[a, Floor[Sqrt[k]]], {x, 1, 150}]; a

Formula

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