A083036 Partial sums of A083035.

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, 15, 16, 17, 17, 17, 18, 18, 18, 19, 20, 20, 21, 22, 22, 22, 23, 24, 24, 25, 26, 26, 26, 27, 27, 27, 28, 29, 29, 29, 30, 30, 30, 31, 32, 32, 33, 34, 34, 34, 35, 35, 35, 36, 37, 37, 37, 38

Offset: 1

Author

Benoit Cloitre, Apr 17 2003

Keywords

• nonn

Crossrefs

Cf. A083035, A083037, A083038.

Programs

Mathematica

Accumulate[Table[Floor[Sqrt[2]n]-2Floor[n/Sqrt[2]],{n,120}]] (* Harvey P. Dale, Mar 08 2017 *)

PARI

first(n)=my(s); vector(n,k,s+=a(n)=sqrtint(2*k^2)%2) \\ Charles R Greathouse IV, Sep 02 2015