OFFSET
0,2
LINKS
Peter Luschny, The lost Bernoulli numbers.
MAPLE
MATHEMATICA
ez[n_] := SeriesCoefficient[Sec[t] + Tan[t], {t, 0, n}];
a[0] = 1; a[n_] := Denominator[ez[n - 1] n!/(4^n - 2^n)];
Table[a[n], {n, 0, 28}] (* Jean-François Alcover, Jun 26 2019 *)
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Peter Luschny, Aug 07 2011
STATUS
approved