|
Search: id:A144845
|
|
|
| A144845 |
|
Least number k such that all coefficients of k*B(n,x), the n-th Bernoulli polynomial, are integers. |
|
+0
2
|
|
| 1, 2, 6, 2, 30, 6, 42, 6, 30, 10, 66, 6, 2730, 210, 30, 6, 510, 30, 3990, 210, 2310, 330, 690, 30, 2730, 546, 42, 14, 870, 30, 14322, 462, 39270, 3570, 210, 6, 1919190, 51870, 2730, 210, 94710, 2310, 99330, 2310, 4830, 4830, 9870, 210, 46410, 6630, 14586, 858
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
The lcm of the terms in row n of A053383. It appears that the Bernoulli polynomial B(n,x) is irreducible for all even n.
|
|
LINKS
|
T. D. Noe, Table of n, a(n) for n=0..1000
Eric W. Weisstein, The World of Mathematics: Bernoulli Polynomial
|
|
MAPLE
|
seq(ilcm(seq(denom(c), c=coeffs(bernoulli(n, x)))), n=0..51); [From Peter Luschny (peter(AT)luschny.de), Nov 11 2009]
|
|
MATHEMATICA
|
Join[{1}, Table[1/FactorTerms[BernoulliB[n, x], x][[1]], {n, 100}]]
|
|
CROSSREFS
|
Sequence in context: A027760 A140770 A141498 this_sequence A122018 A005729 A086660
Adjacent sequences: A144842 A144843 A144844 this_sequence A144846 A144847 A144848
|
|
KEYWORD
|
nonn,new
|
|
AUTHOR
|
T. D. Noe (noe(AT)sspectra.com), Sep 22 2008
|
|
|
Search completed in 0.002 seconds
|
