[go: up one dir, main page]

login
A332206
Numbers k such that A332205(k) = 0.
4
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.
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
Sequence in context: A067327 A346470 A218968 * A324653 A094025 A376979
KEYWORD
nonn,base
AUTHOR
Rémy Sigrist, Feb 07 2020
STATUS
approved