OFFSET
0,4
FORMULA
a(n) = 2^(n-valuation(2^(n-1)+n,2)), with a(0) = 1.
MATHEMATICA
a[0] = 1; a[n_] := Denominator[(2^(n-1)+n)/2^n]; Table[a[n], {n, 0, 40}]
(* or *)
a[0] = 1; a[n_] := 2^(n-IntegerExponent[2^(n-1)+n, 2]); Table[a[n], {n, 0, 40}]
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Jean-François Alcover and Paul Curtz, Dec 16 2016
STATUS
approved