OFFSET
0,1
MATHEMATICA
Abs[#[[2]]]-Abs[#[[1]]]&/@Partition[BernoulliB[Range[0, 40, 2]], 2, 1]// Numerator (* Harvey P. Dale, Jan 06 2019 *)
CROSSREFS
KEYWORD
sign,frac
AUTHOR
STATUS
approved