OFFSET
0
COMMENTS
LINKS
Reinhard Zumkeller, Rows n = 0..12 of table, flattened
S. C. Woon, A tree for generating Bernoulli numbers, Math. Mag., 70 (1997), 51-56.
PROG
(Haskell)
a242179 n k = a242179_tabf !! n !! n
a242179_row n = a242179_tabf !! n
a242179_tabf = iterate (concatMap (\x -> [-x, x])) [1] :: (Num t => [[t]])
a242179_list = concat a242179_tabf
(PARI) T(n, k) = (-1)^(n - hammingweight(k));
a(n) = n++; -(-1)^(logint(n, 2) - hammingweight(n)); \\ Kevin Ryde, Mar 11 2021
CROSSREFS
KEYWORD
sign,tabf,frac
AUTHOR
Reinhard Zumkeller, Jul 04 2014
STATUS
approved