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

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

Mathematica

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

Crossrefs

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

Sequence in context: A035931 A330634 A254524 * A132211 A067441 A357299

Adjacent sequences: A374094 A374095 A374096 * A374098 A374099 A374100

Keyword

nonn,base,easy

Author

Paolo Xausa, Jun 28 2024

Status

approved