This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A180321 #2 Mar 30 2012 17:31:30
%S A180321 0,7,7,337,104,62,337,188,104,160471,2377,146,4364,356,188,3047342,
%T A180321 104,7,10754788,7,33644,321959,12649,314,400103,6097,356,16531744,
%U A180321 304598,398,96547657,7,104,396467,944,111158,112780961,1028,7,187526468,33644
%N A180321 (Numerator(Bernoulli(4n)) mod denominator(Bernoulli(4n)) - AbsoluteValue(Numerator(Bernoulli(4n))) mod denominator(Bernoulli(4n)))/4.
%C A180321 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, ..., .
%t A180321 f[n_] := Block[{b = BernoulliB[4 n]}, (Mod[Numerator@b, Denominator@b] - Mod[Abs@Numerator@b, Denominator@b])/4]; Array[f, 60, 0]
%Y A180321 Cf. A169980, A180315, A180320.
%K A180321 nonn
%O A180321 0,2
%A A180321 _Robert G. Wilson v_, Aug 27 2010