A227842 First differences of A014817.

1, 2, 3, 2, 4, 5, 6, 5, 5, 8, 9, 6, 10, 11, 12, 7, 13, 12, 15, 12, 14, 17, 18, 13, 15, 20, 19, 16, 22, 21, 24, 17, 21, 26, 27, 18, 26, 29, 28, 21, 29, 28, 33, 28, 30, 33, 36, 27, 31, 34, 35, 32, 38, 39, 40, 31, 37, 42, 45, 32, 44, 45, 46, 33, 45, 44, 49, 44, 46, 51, 52, 37, 49, 56, 49, 48, 54, 53, 60, 47

Offset: 1

Author

N. J. A. Sloane, Aug 08 2013

Keywords

• nonn

Crossrefs

Cf. A014817, A227841.

Programs

Maple

A227842 := proc(n)
    A014817(n+1)-A014817(n) ;
end proc:
seq(A227842(n),n=1..80) ; # R. J. Mathar, Aug 09 2013

Mathematica

Differences[Table[Sum[Floor[k^2/n],{k,n}],{n,100}]] (* Harvey P. Dale, Sep 13 2024 *)