OFFSET
0,3
COMMENTS
Every nonnegative integer appears.
LINKS
EXAMPLE
The irregular table begins
{0},
{1, 2, 3, 6},
{4, 5, 9, 12},
{7, 8},
{11, 15, 18},
{10, 13, 19},
{14, 21, 24, 25},
{17},
{16, 20, 22, 30},
{26, 32},
{38},
{23, 27, 28, 31, 35}
MATHEMATICA
nn = 100; f = Fibonacci[Range[0, nn]]; t2 = Transpose[{Range[0, nn], f}]; Table[Select[Range[nn + 1], Count[IntegerDigits[t2[[#, 2]], 2], 1] == n &] - 1, {n, 0, nn/5}]
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
T. D. Noe, Mar 11 2013
STATUS
approved