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,4

Links

Table of n, a(n) for n=1..76.

Mathematica

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

Prog

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

Crossrefs

Cf. A083035, A083037, A083038.

Sequence in context: A350255 A267861 A253548 * A241920 A202305 A195778

Adjacent sequences: A083033 A083034 A083035 * A083037 A083038 A083039

Keyword

nonn

Author

Benoit Cloitre, Apr 17 2003

Status

approved