|
|
|
|
3, 9, 60, 84, 60, 132, 5460, 12, 1020, 1596, 660, 276, 5460, 12, 1740, 28644, 1020, 12, 3838380, 12, 27060, 3612, 1380, 564, 92820, 132, 3180, 1596, 1740, 708, 113573460, 12, 1020, 129444, 60, 9372, 280201740, 12, 60, 6636, 460020, 996, 6808620, 12, 122820
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
All terms are multiples of 3.
|
|
LINKS
|
|
|
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:
|
|
MATHEMATICA
|
A051717 := Join[{1}, Denominator[Total /@ Partition[BernoulliB[Range[0, 500]], 2, 1]]]; Join[{3, 9}, Table[2*A051717[[2*n]], {n, 3, 30}]] (* G. C. Greubel, Dec 22 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|