OFFSET
0,4
COMMENTS
Rows have irregular lengths.
LINKS
EXAMPLE
0; 1; 1; 2; 3; 5; 2,2,2; 13; 3,7; 2,17; ...
MAPLE
with(combinat); A060441 := n->ifactor(fibonacci(n));
with(numtheory): with(combinat): for i from 3 to 50 do for j from 1 to nops(ifactors(fibonacci(i))[2]) do for k from 1 to ifactors(fibonacci(i))[2][j][2] do printf(`%d, `, ifactors(fibonacci(i))[2][j][1]) od: od: od:
PROG
(Haskell)
a060441 n k = a060441_tabf !! (n-1) !! (k-1)
a060441_row n = a060441_tabf !! (n-1)
a060441_tabf = [0] : [1] : [1] : map a027746_row (drop 3 a000045_list)
-- Reinhard Zumkeller, Aug 30 2014
CROSSREFS
KEYWORD
nonn,tabf,easy
AUTHOR
N. J. A. Sloane, Apr 07 2001
EXTENSIONS
More terms from James A. Sellers, Apr 09 2001
STATUS
approved