|
%I #13 Aug 27 2019 17:53:31
%S 1,1,3,1,5,23,35,97,203,409,205,1297,933,311,10819,18239,37611,118535,
%T 135251,394609,217989,72663,24221,2788129,4663029,32000089,11702925,
%U 3900975,1300325,358347383,596378755,1232862847,3274265813,6818044999,3453941395
%N a(n) is the smallest denominator D of the fraction N/D with 1 <= D < 2^n which is closest to (3/2)^n.
%C First 10000 terms are odd. Is that the general case?
%t a[n_] := Denominator[FromContinuedFraction[ContinuedFraction[(3/2)^n][[1 ;; -2]]]]; Array[a, 35] (* _Amiram Eldar_, Jul 10 2019 *)
%Y Cf. A215199.
%K nonn,frac
%O 1,3
%A _David A. Corneth_, Mar 14 2019
|
