OFFSET
0,2
COMMENTS
LINKS
Gheorghe Coserea, Table of n, a(n) for n = 0..200
FORMULA
a(n) = A001317(3*n).
MATHEMATICA
f[n_] := BitXor[n, BitShiftLeft[n, 1]]; Table[Nest[f, 1, x], {x, 0, 54, 3}]
PROG
(PARI)
a(n) = subst(lift(Pol(Mod([1, 1, 1, 1], 2), 'x)^n), 'x, 2);
vector(19, n, a(n-1)) \\ Gheorghe Coserea, Jun 12 2016
(Python)
def A177882(n): return sum((bool(~(3*n)&3*n-k)^1)<<k for k in range(3*n+1)) # Chai Wah Wu, May 02 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Dec 14 2010
EXTENSIONS
Definition rewritten by N. J. A. Sloane, Jan 01 2011
STATUS
approved