A132084 A051717(2n).

1, 3, 30, 42, 30, 66, 2730, 6, 510, 798, 330, 138, 2730, 6, 870, 14322, 510, 6, 1919190, 6, 13530, 1806, 690, 282, 46410, 66, 1590, 798, 870, 354, 56786730, 6, 510, 64722, 30, 4686, 140100870, 6, 30, 3318, 230010, 498, 3404310, 6, 61410, 272118, 1410, 6, 4501770

Offset: 0

Author

Paul Curtz, Aug 26 2008

Keywords

• nonn
• frac

Comments

Essentially the same as A006954.

a(2n) + a(2n+1) = 4, 72, 96, 2736, 1308, 468, ... are multiples of 4.

Programs

Maple

C:=proc(n) if n=0 then RETURN(1); fi; if n mod 2 = 0 then RETURN(bernoulli(n)+bernoulli(n-1)); else RETURN(-bernoulli(n)-bernoulli(n-1)); fi; end;
A051717 := proc(n) denom(C(n)) ; end: A132084 := proc(n) A051717(2*n) ; end: seq(A132084(n),n=0..120) ; # R. J. Mathar, Sep 07 2009

Extensions

Extended by R. J. Mathar, Sep 07 2009