A240883 Central terms of the triangle in A240857.

0, 0, 2, 1, 2, 0, 2, 2, 2, 2, 4, 1, 2, 1, 3, 3, 2, 2, 4, 3, 4, 0, 2, 2, 2, 2, 4, 2, 3, 2, 4, 4, 2, 2, 4, 3, 4, 2, 4, 4, 4, 4, 6, 1, 2, 1, 3, 3, 2, 2, 4, 3, 4, 1, 3, 3, 3, 3, 5, 3, 4, 3, 5, 5, 2, 2, 4, 3, 4, 2, 4, 4, 4, 4, 6, 3, 4, 3, 5, 5, 4, 4, 6, 5, 6, 0

Offset

0,3

Links

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Formula

a(n) = A240857(2*n,n) = A046818(n) - 1.

Mathematica

a[n_] := DigitCount[3*n + 1, 2, 1] - 1; Array[a, 100, 0] (* Amiram Eldar, Aug 01 2023 *)

Prog

(Haskell)
a240883 n = a240857 (2 * n) n

Crossrefs

Cf. A046818, A240857.

Sequence in context: A335881 A239703 A029338 * A048272 A112329 A335884

Adjacent sequences: A240880 A240881 A240882 * A240884 A240885 A240886

Keyword

nonn

Author

Reinhard Zumkeller, Apr 14 2014

Status

approved