|
|
A100652
|
|
Denominator of 1 - Sum_{i=1..n} |Bernoulli(i)|.
|
|
2
|
|
|
1, 2, 3, 3, 10, 10, 105, 105, 70, 70, 1155, 1155, 1430, 1430, 2145, 2145, 24310, 24310, 4849845, 4849845, 58786, 58786, 2028117, 2028117, 965770, 965770, 1448655, 1448655, 28007330, 28007330, 100280245065, 100280245065, 66853496710, 66853496710, 100280245065
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Contribution from Paul Curtz, Aug 07 2012 (Start):
Take a(0)=1. Then instead of the Akiyama-Tanigawa algorithm we create the extended (or prolonged) Akiyama-Tanigawa algorithm using A028310(n)=1,1,2,3,4,5,... instead of A000027(n)=1,2,3,4,5,.. .
Hence the array (A051714 with an additional column)
2, 1, 1/2, 1/3, 1/4,
1, 1/2, 1/3, 1/4, 1/5,
a(n) is the denominator of the (first) column before the Akiyama-Tanigawa algorithm leading to the second Bernoulli numbers A164555(n)/A027642(n). See A176672(n).
(End)
|
|
LINKS
|
|
|
EXAMPLE
|
1, 1/2, 1/3, 1/3, 3/10, 3/10, 29/105, 29/105, 17/70, 17/70, 193/1155, 193/1155, -123/1430, -123/1430, -2687/2145, -2687/2145, -202863/24310, -202863/24310, -307072861/4849845, ... = A100651/A100652.
|
|
MATHEMATICA
|
Denominator[1-(Accumulate[Abs[BernoulliB[Range[0, 40]]]])] (* Harvey P. Dale, Jan 28 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|