OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
a[n_] := 8*Floor[(e = IntegerExponent[n, 2] + 1)/4] + 2^Mod[e, 4]; Array[a, 100] (* Amiram Eldar, Nov 29 2022 *)
PROG
(Haskell)
a209675 = a003484 . (* 2)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Reinhard Zumkeller, Mar 11 2012
STATUS
approved