|
|
A157867
|
|
Denominator of Bernoulli(n, 1/5).
|
|
7
|
|
|
1, 10, 150, 125, 3750, 3125, 656250, 78125, 2343750, 1953125, 644531250, 48828125, 133300781250, 1220703125, 36621093750, 30517578125, 15563964843750, 762939453125, 3044128417968750, 19073486328125, 6294250488281250
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
Table[Denominator[BernoulliB[n, 1/5]], {n, 0, 50}] (* Vincenzo Librandi, Mar 19 2014 *)
|
|
PROG
|
(PARI) a(n)=denominator(subst(bernpol(n, x), x, 1/5)); \\ Michel Marcus, Jul 06 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|