|
%I #9 Mar 08 2017 10:27:48
%S 1,1,1,2,3,3,4,5,5,5,6,6,6,7,8,8,8,9,9,9,10,11,11,12,13,13,13,14,15,
%T 15,16,17,17,17,18,18,18,19,20,20,21,22,22,22,23,24,24,25,26,26,26,27,
%U 27,27,28,29,29,29,30,30,30,31,32,32,33,34,34,34,35,35,35,36,37,37,37,38
%N Partial sums of A083035.
%t Accumulate[Table[Floor[Sqrt[2]n]-2Floor[n/Sqrt[2]],{n,120}]] (* _Harvey P. Dale_, Mar 08 2017 *)
%o (PARI) first(n)=my(s); vector(n,k,s+=a(n)=sqrtint(2*k^2)%2) \\ _Charles R Greathouse IV_, Sep 02 2015
%Y Cf. A083035, A083037, A083038.
%K nonn
%O 1,4
%A _Benoit Cloitre_, Apr 17 2003
|
