OFFSET
0,1
COMMENTS
FORMULA
MATHEMATICA
a[n_] := Denominator[(-3)^(n+1)*BernoulliB[n+1]/(n+1)!]; Array[a, 30, 0] (* Amiram Eldar, Nov 15 2018 *)
CROSSREFS
KEYWORD
nonn,frac,easy
AUTHOR
Wolfdieter Lang, Nov 15 2018
STATUS
approved