OFFSET
1,3
COMMENTS
First 10000 terms are odd. Is that the general case?
MATHEMATICA
a[n_] := Denominator[FromContinuedFraction[ContinuedFraction[(3/2)^n][[1 ;; -2]]]]; Array[a, 35] (* Amiram Eldar, Jul 10 2019 *)
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
David A. Corneth, Mar 14 2019
STATUS
approved