%I #10 Sep 13 2024 16:57:42
%S 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,
%T 16,22,21,24,17,21,26,27,18,26,29,28,21,29,28,33,28,30,33,36,27,31,34,
%U 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
%N First differences of A014817.
%p A227842 := proc(n)
%p A014817(n+1)-A014817(n) ;
%p end proc:
%p seq(A227842(n),n=1..80) ; # _R. J. Mathar_, Aug 09 2013
%t Differences[Table[Sum[Floor[k^2/n],{k,n}],{n,100}]] (* _Harvey P. Dale_, Sep 13 2024 *)
%Y Cf. A014817, A227841.
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Aug 08 2013