OFFSET
0,2
COMMENTS
Sorted Values: 0, 7, 62, 104, 146, 188, 314, 337, 356, 398, 566, 734, 944, 1028, 1154, 1196, 1238, 1261, 1574, 1826, 1868, 2036, 2204, 2377, 2414, ..., .
MATHEMATICA
f[n_] := Block[{b = BernoulliB[4 n]}, (Mod[Numerator@b, Denominator@b] - Mod[Abs@Numerator@b, Denominator@b])/4]; Array[f, 60, 0]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Aug 27 2010
STATUS
approved