|
| |
|
|
A083006
|
|
Numbers n such that sum(k=0,n-1,B(k)*C(n,k)^2) is an integer where B(k) is the k-th Bernoulli number and C(n,k)=binomial(n,k).
|
|
0
| |
|
|
0, 1, 2, 3, 4, 6, 8, 10, 12, 24, 28, 30, 36, 40, 60, 108, 120
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
COMMENTS
| Next term, if it exists, is >2500.
No further terms up to 5000. [From Harvey P. Dale, Nov 14 2011]
|
|
|
MAPLE
| p:=proc(n) if type(sum(bernoulli(k)*binomial(n, k)^2, k=0..n-1), integer)=true then n else fi end: seq(p(n), n=0..200); - Emeric Deutsch (deutsch(AT)duke.poly.edu), Mar 19 2005
|
|
|
MATHEMATICA
| Select[Range[0, 150], IntegerQ[Sum[BernoulliB[k]Binomial[#, k]^2, {k, 0, #-1}]]&] (* From Harvey P. Dale, Nov 14 2011 *)
|
|
|
CROSSREFS
| Sequence in context: A061953 A029517 A177907 * A096061 A100919 A184109
Adjacent sequences: A083003 A083004 A083005 * A083007 A083008 A083009
|
|
|
KEYWORD
| more,nonn
|
|
|
AUTHOR
| Benoit Cloitre (benoit7848c(AT)orange.fr), May 31 2003
|
| |
|
|
