|
Search: id:A090126
|
|
|
| A090126 |
|
Distinct values of denominators of Bernoulli numbers B(2n) in order of their appearance as n grows. |
|
+0
2
|
|
| 6, 30, 42, 66, 2730, 510, 798, 330, 138, 870, 14322, 1919190, 13530, 1806, 690, 282, 46410, 1590, 354, 56786730, 64722, 4686, 140100870, 3318, 230010, 498, 3404310, 61410, 272118, 1410, 4501770, 33330, 4326, 642, 209191710, 1518, 1671270, 1770
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
t=Table[Denominator[BernoulliB[2*w]], {w, 1, 100}] s=Sort[t]; u=Union[t]; Length[u] Table[Count[s, Part[u, j]], {j, 1, Length[u]}] g=Table[Min[Flatten[Position[t, Part[u, j]]]], {j, 1, Length[u]}]; uu=Union[g]; Table[Part[t, Part[uu, j]], {j, 1, Length[g]}]
|
|
CROSSREFS
|
Cf. A002245, A027641, A027642.
Sequence in context: A101937 A101939 A114649 this_sequence A100194 A070195 A110175
Adjacent sequences: A090123 A090124 A090125 this_sequence A090127 A090128 A090129
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jan 16 2004
|
|
|
Search completed in 0.002 seconds
|
