OFFSET
0,2
EXAMPLE
1,
-1/2, 1/2,
-1/6, -2/3, -1/6,
1/2, 1/3, -1/3, -1/2,
7/30, 11/15, 16/15, 11/15, 7/30,
-3/2, -19/15, -8/15, 8/15, 19/15, 3/2,
-31/42, -47/21, -368/105, -424/105, -368/105, -47/21, -31/42.
Row sums: 1, 0/2, -6/6, 0/6, 90/30, 0/30, -3570/210, 0/210, 32550/210,... .
Are the denominators A034386(n+1)?
MATHEMATICA
max = 12; b[0] = 1; b[n_] := Numerator[ BernoulliB[n, 1/2] - (n+1)*EulerE[n, 0]]; t = Table[b[n], {n, 0, max}] / Table[ Sum[ Boole[ PrimeQ[d+1]]/(d+1), {d, Divisors[n]}] // Denominator, {n, 0, max}]; dt = Table[ Differences[t, n], {n, 0, max}]; Table[ dt[[n-k+1, k]] // Denominator, {n, 1, max}, {k, 1, n}] // Flatten (* Jean-François Alcover, Aug 12 2013 *)
CROSSREFS
KEYWORD
AUTHOR
Paul Curtz, Aug 10 2013
EXTENSIONS
More terms from Jean-François Alcover, Aug 12 2013
STATUS
approved