|
%I #2 Mar 30 2012 17:31:30
%S 0,1,1,691,47,41,691,59,47,638653,2011,53,14477,83,59,22298681,47,1,
%T 48540859,1,47717,1058237,5407,77,1450679,4471,83,71532367,226439,89,
%U 971032651,1,47,1310531,167,117419,965295473,179,1,522242099,47717,113
%N AbsoluteValue(Numerator(Bernoulli(4n))) - Numerator(Bernoulli(4n)) mod denominator(Bernoulli(4n)) divided by two.
%C Sorted Values: 0, 1, 41, 47, 53, 59, 77, 83, 89, 113, 137, 167, 179, 197, 203, 209, 257, 293, 299, 323, 347, 377, 389, 413, 419, 497, 509, 533, 539, 587, 593, 599, ..., .
%t f[n_] := Block[{b = BernoulliB[4 n]}, Mod[Abs@ Numerator@ b - Numerator@ b, Denominator@ b]/2]; Array[f, 60, 0]
%Y Cf. A169980, A180315, A180321.
%K nonn
%O 0,4
%A _Robert G. Wilson v_, Aug 27 2010
|
