|
| |
|
|
A089172
|
|
Values of n where numerators of series coefficients of 1/(1 + Cosh[Sqrt[x]]) differ from A002425.
|
|
0
|
|
|
|
11, 19, 24, 27, 29, 33, 34, 35, 39, 43, 44, 48, 49, 50, 51, 53, 54, 55, 59, 61, 62, 64, 65, 67, 69, 71, 75, 76, 79, 80, 83, 84, 87, 89, 90, 91, 94, 97, 98, 99, 101, 103, 104, 105, 107, 108, 109, 111, 113, 114, 115, 116, 118, 119, 120, 123, 124, 125, 127
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Table of n, a(n) for n=1..59.
|
|
|
MATHEMATICA
|
it=Table[Numerator[2*BernoulliB[2*n]*(4^n-1)/(2*n)]/ Numerator[SeriesCoefficient[Series[1/(1+Cosh[x]), {x, 0, 2n}], 2n-2]], {n, 1, 96}]; Flatten[Position[it, q_Integer/; q>1]]-1
|
|
|
CROSSREFS
|
Cf. A002425.
Sequence in context: A031406 A105908 A084654 * A152567 A029481 A129916
Adjacent sequences: A089169 A089170 A089171 * A089173 A089174 A089175
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Wouter Meeussen, Dec 07 2003
|
|
|
STATUS
|
approved
|
| |
|
|
