A256675 Denominators of the inverse binomial transform of Bernoulli(n+2).
6, 6, 15, 15, 105, 21, 105, 15, 165, 33, 15015, 1365, 1365, 3, 255, 255, 33915, 399, 21945, 165, 3795, 69, 31395, 1365, 1365, 3, 435, 435, 1038345, 7161, 608685, 255, 255, 3, 959595, 959595, 959595, 3, 6765, 6765, 2036265, 903, 103845, 345, 16215, 141, 1090635
Offset: 0
Keywords
Programs
-
Mathematica
max = 42; bb = Table[BernoulliB[n+2], {n, 0, max}]; dd = Table[Differences[bb, n], {n, 0, max}]; dd[[All, 1]] // Denominator (* Jean-François Alcover, Apr 09 2015 *)
-
PARI
lista(nn) = {A = vector(nn, n, bernfrac(n+1)); for (i=1, #A-1, for(j=0,i-1,A[i+1]-=binomial(i,j)*A[j+1])); for (i=1, #A, print1(denominator(A[i]), ", "));} \\ Michel Marcus, Apr 08 2015
Comments