A374097 a(n) = A196563(n)*A196564(n).

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2

Offset: 0

Author

Paolo Xausa, Jun 28 2024

Keywords

• nonn
• base
• easy

Comments

More than the usual number of terms are shown in order to distinguish this sequence from A180160, from which it first differs at n = 100.

Links

• Paolo Xausa, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A055642, A059708 (positions of zeros), A180160, A196563, A196564.

Programs

Mathematica

A374097[n_] := #*(IntegerLength[n] - #) & [Total[Mod[IntegerDigits[n], 2]]];
Array[A374097, 120, 0]