OFFSET
1,1
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
KEYWORD
nonn
AUTHOR
Wouter Meeussen, Dec 07 2003
STATUS
approved