A114648 Number of occurrences of 6 as a denominator in Bernoulli(k) for 0<=k<=10^n.
0, 1, 10, 87, 834, 7992, 77696, 758582, 7436825, 73129588, 720726912
Offset: 0
Links
- Eric Weisstein's World of Mathematics, Bernoulli Number
Crossrefs
Programs
-
Mathematica
DenominatorBernoulliBQ[n_Integer, denom_Integer] := If[EvenQ[n], Times @@ Select[Divisors[n] + 1, PrimeQ] == denom, 1 + KroneckerDelta[n, 1] == denom]; A114648[n_] := A114648[n] = Length[Select[Range[10^n], DenominatorBernoulliBQ[#, 6] &]] (* Enrique Pérez Herrero, Aug 01 2010 *)
Extensions
More terms added by Enrique Pérez Herrero, Aug 01 2010
More terms from Enrique Pérez Herrero, Aug 16 2010
a(10) from Arkadiusz Wesolowski, Dec 02 2012