OFFSET
0,2
COMMENTS
For comments and references see A342318.
EXAMPLE
r(n) = 1, 1/2, 1/12, 1/56, 1/120, 5/992, 1/252, 61/16256, 1/240, 1385/261632, 1/132, ...
MAPLE
a := n -> `if`(n = 0, 1, `if`(n::even, denom(abs(bernoulli(n))/n), 4^n - 2^n)):
seq(a(n), n=0..29);
MATHEMATICA
r[s_] := If[s == 0, 1, (I^s PolyLog[1 - s, -I] + (-I)^s PolyLog[1 - s, I]) / (4^s - 2^s)]; Table[r[n], {n, 0, 29}] // Denominator
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Peter Luschny, Mar 22 2021
STATUS
approved