%I #20 Mar 16 2016 09:11:44
%S 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,
%T 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,
%U 27,11,8,57,58,59,1,61,62,63,64,13,33,67,68,69,14,71,1,73,74,3
%N Denominator of Fibonacci(n)/n.
%C a(n) = 1 for n in A023172; a(n) = n for n in A074215. - _Robert Israel_, Mar 16 2016
%H Robert Israel, <a href="/A270313/b270313.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = n/A104714(n). - _Robert Israel_, Mar 16 2016
%p seq(n/igcd(n,combinat:-fibonacci(n)), n=1..100); # _Robert Israel_, Mar 16 2016
%t Table[Fibonacci[n]/n, {n, 1, 100}] // Denominator
%o (PARI) a(n) = denominator(fibonacci(n)/n); \\ _Michel Marcus_, Mar 16 2016
%Y Cf. A000045, A023172, A074215, A104714, A127787, A270312 (numerators).
%K nonn,frac
%O 1,2
%A _Jean-François Alcover_ and _Paul Curtz_, Mar 15 2016