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

Author

Reinhard Zumkeller, Apr 14 2014

Keywords

• nonn

Links

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

Crossrefs

Cf. A046818, A240857.

Programs

Haskell

a240883 n = a240857 (2 * n) n

Mathematica

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

Formula

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