OFFSET
0,3
COMMENTS
MATHEMATICA
a[ n_ ] := Module[ {}, k = 0; While[ Not[ Plus @@ IntegerDigits[ Fibonacci[ k ]S, 2 ] == n ], k++ ]; Fibonacci[ k ] ]; Table[ a[ i ], {i, 0, 40} ] (* Stefan Steinerberger *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jonathan Vos Post, Jun 24 2007
EXTENSIONS
Extended by Stefan Steinerberger, Jun 25 2007
STATUS
approved