A332206 Numbers k such that A332205(k) = 0.

0, 1, 3, 4, 12, 13, 15, 16, 48, 49, 51, 52, 60, 61, 63, 64, 192, 193, 195, 196, 204, 205, 207, 208, 240, 241, 243, 244, 252, 253, 255, 256, 768, 769, 771, 772, 780, 781, 783, 784, 816, 817, 819, 820, 828, 829, 831, 832, 960, 961, 963, 964, 972, 973, 975, 976

Offset

0,3

Comments

Although this is a list, it has offset 0 for mathematical reasons.

Links

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

Formula

a(e + 2*k) = e + 3*A000695(k) for any e = 0..1 and k >= 0.

Mathematica

A332206[n_] := Mod[n, 2] + 3*FromDigits[IntegerDigits[Quotient[n, 2], 2], 4];
Array[A332206, 100, 0] (* Paolo Xausa, Aug 28 2024, after Rémy Sigrist *)

Prog

(PARI) a(n) = (n%2) + 3*fromdigits(binary(n\2), 4)

Crossrefs

Cf. A000695, A332205.

Sequence in context: A067327 A346470 A218968 * A324653 A094025 A376979

Adjacent sequences: A332203 A332204 A332205 * A332207 A332208 A332209

Keyword

nonn,base

Author

Rémy Sigrist, Feb 07 2020

Status

approved