OFFSET
0,3
LINKS
Paolo Xausa, Table of n, a(n) for n = 0..1000
FORMULA
See the formulas in A380949.
MAPLE
r := n -> (n/2)*(Pi/2)^cos(Pi*(n-1))*((n/2-1/2)!/(n/2)!)^2:
a := n -> denom(simplify(r(n))): seq(a(n), n = 0..28);
# Alternative:
r := n -> ifelse(n <= 1, n, (n - 1)/(n*r(n - 1))):
MATHEMATICA
Join[{1}, Denominator[FoldList[(#2 - 1)/(#2*#) &, Range[30]]]] (* Paolo Xausa, Feb 14 2025 *)
CROSSREFS
KEYWORD
nonn,frac,new
AUTHOR
Peter Luschny, Feb 11 2025
STATUS
approved