A139227 Array read by rows: row n lists the proper divisors of n-th Fibonacci number A000045(n).

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

Links

Table of n, a(n) for n=3..67.

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

Cf. A000045, A133021, A139044, A139045.

Sequence in context: A194524 A117136 A362142 * A269750 A292495 A065626

Adjacent sequences: A139224 A139225 A139226 * A139228 A139229 A139230

Keyword

easy,nonn,tabl

Author

Omar E. Pol, Apr 28 2008

Status

approved