login
A139227
Array read by rows: row n lists the proper divisors of n-th Fibonacci number A000045(n).
0
1, 1, 1, 1, 2, 4, 1, 1, 3, 7, 1, 2, 17, 1, 5, 11, 1, 1, 2, 3, 4, 6, 8, 9, 12, 16, 18, 24, 36, 48, 72, 1, 1, 13, 29, 1, 2, 5, 10, 61, 122, 305, 1, 3, 7, 21, 47, 141, 329, 1, 1, 2, 4, 8, 17, 19, 34, 38, 68, 76, 136, 152, 323, 646, 1292
OFFSET
3,5
EXAMPLE
Row ....... Array begins
===========================================================
3 ......... 1
4 ......... 1
5 ......... 1
6 ......... 1, 2, 4
7 ......... 1
8 ......... 1, 3, 7
9 ......... 1, 2, 17
10 ........ 1, 5, 11
11 ........ 1
12 ........ 1, 2, 3, 4, 6, 8, 9, 12, 16, 18, 24, 36, 48, 72
13 ........ 1
MATHEMATICA
f[n_] := Most@ Divisors@ Fibonacci@ n; Flatten@ Array[f, 16, 3] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
easy,nonn,tabl
AUTHOR
Omar E. Pol, Apr 28 2008
STATUS
approved