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];
PROG
(PARI) a(n) = (n%2) + 3*fromdigits(binary(n\2), 4)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Rémy Sigrist, Feb 07 2020
STATUS
approved