|
%I #13 Aug 02 2019 11:06:05
%S 1,1,1,1,1,3,1,3,1,5,1,3,1,105,5,3,1,15,5,105,7,165,5,15,1,273,7,7,1,
%T 15,1,231,77,1785,35,3,1,25935,455,105,7,1155,55,1155,7,2415,35,105,1,
%U 3315,221,429,11,165,55,399,19,435,5,15,1,465465,5005,2145
%N The denominator of the Bernoulli polynomial B(n,x) divided by the Clausen number C(n), A144845(n)/A141056(n).
%p # Clausen(n,k) defined in A160014.
%p seq(denom(bernoulli(i,x))/Clausen(i,1), i=0..63);
%t c[0, _] = 1; c[n_, k_] := Times @@ (Select[Divisors[n], PrimeQ[#+k]&] + k);
%t Table[Denominator[BernoulliB[i, x] // Together]/c[i, 1], {i, 0, 63}] (* _Jean-François Alcover_, Aug 02 2019 *)
%Y Cf. A213623.
%K nonn
%O 0,6
%A _Peter Luschny_, Jun 16 2012
|
