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

Author

Wouter Meeussen, Dec 07 2003

Keywords

• nonn

Crossrefs

Cf. A002425.

Programs

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