A089172 Values of n where numerators of series coefficients of 1/(1 + cosh(sqrt(x))) differ from A002425.

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

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: A352925 A105908 A084654 * A152567 A029481 A289700

Adjacent sequences: A089169 A089170 A089171 * A089173 A089174 A089175

Keyword

nonn

Author

Wouter Meeussen, Dec 07 2003

Status

approved