A270313 Denominator of Fibonacci(n)/n.

1, 2, 3, 4, 1, 3, 7, 8, 9, 2, 11, 1, 13, 14, 3, 16, 17, 9, 19, 4, 21, 22, 23, 1, 1, 26, 27, 28, 29, 3, 31, 32, 33, 34, 7, 1, 37, 38, 39, 8, 41, 21, 43, 44, 9, 46, 47, 1, 49, 2, 51, 52, 53, 27, 11, 8, 57, 58, 59, 1, 61, 62, 63, 64, 13, 33, 67, 68, 69, 14, 71, 1, 73, 74, 3

Offset

1,2

Comments

a(n) = 1 for n in A023172; a(n) = n for n in A074215. - Robert Israel, Mar 16 2016

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Formula

a(n) = n/A104714(n). - Robert Israel, Mar 16 2016

Maple

seq(n/igcd(n, combinat:-fibonacci(n)), n=1..100); # Robert Israel, Mar 16 2016

Mathematica

Table[Fibonacci[n]/n, {n, 1, 100}] // Denominator

Prog

(PARI) a(n) = denominator(fibonacci(n)/n); \\ Michel Marcus, Mar 16 2016

Crossrefs

Cf. A000045, A023172, A074215, A104714, A127787, A270312 (numerators).

Sequence in context: A159798 A294236 A280694 * A343251 A327464 A318308

Adjacent sequences: A270310 A270311 A270312 * A270314 A270315 A270316

Keyword

nonn,frac

Author

Jean-François Alcover and Paul Curtz, Mar 15 2016

Status

approved