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,2

Comments

Essentially the same as A006954 and A002445.

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

Links

Table of n, a(n) for n=0..48.

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

Crossrefs

Sequence in context: A140153 A095045 A061472 * A208880 A012009 A001800

Adjacent sequences: A132081 A132082 A132083 * A132085 A132086 A132087

Keyword

nonn,frac

Author

Paul Curtz, Aug 26 2008

Extensions

Extended by R. J. Mathar, Sep 07 2009

Status

approved