|
Search: id:A059016
|
|
|
| A059016 |
|
Number of 0's in binary expansion of Fibonacci(n). |
|
+0
2
|
|
| 1, 0, 0, 1, 0, 1, 3, 1, 2, 4, 1, 3, 6, 3, 3, 6, 2, 4, 8, 8, 5, 8, 7, 4, 10, 11, 8, 7, 8, 7, 12, 10, 13, 9, 11, 13, 12, 11, 16, 14, 11, 11, 14, 13, 12, 16, 10, 19, 21, 15, 16, 18, 18, 19, 21, 16, 17, 23, 16, 20, 25, 23, 16, 20, 24, 19, 26, 20, 32, 24, 25, 27, 24, 23, 27, 28, 29, 31
(list; graph; listen)
|
|
|
OFFSET
|
0,7
|
|
|
LINKS
|
T. D. Noe, Table of n, a(n) for n=0..1000
|
|
MAPLE
|
with(combinat): a := proc (n) local fbin: fbin := convert(fibonacci(n), base, 2): nops(fbin)-add(fbin[j], j = 1 .. nops(fbin)) end proc: seq(a(n), n = 0 .. 80); [From Emeric Deutsch (deutsch(AT)duke.poly.edu), Jul 09 2009]
|
|
PROGRAM
|
(PARI) b(n)= { if (n==0, return(1)); c=0; i=n; until (i<=1, q=i/2; if (frac(q)==0, c++); i=floor(q); ); return (c); } { for (n = 0, 1000, a=b(fibonacci(n)); write("b059016.txt", n, " ", a); ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jun 24 2009]
|
|
CROSSREFS
|
Cf. A011373.
Sequence in context: A077581 A130419 A083110 this_sequence A080418 A073892 A004608
Adjacent sequences: A059013 A059014 A059015 this_sequence A059017 A059018 A059019
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Patrick De Geest (pdg(AT)worldofnumbers.com), Jan 15 2001.
|
|
EXTENSIONS
|
Removed \\allocatemem(932245000); from my PARI program Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jul 04 2009
|
|
|
Search completed in 0.002 seconds
|
