A092837 Indices of terms in the series for sec(x) that have prime numerators.

2, 3, 4, 19, 24, 227, 255, 443, 1381, 3329, 3817, 3947

Offset: 1

Author

Eric W. Weisstein, Mar 07 2004

Keywords

• nonn
• more

Links

• Eric Weisstein's World of Mathematics, Secant

Crossrefs

Cf. A092838.

Programs

Mathematica

f[n_] := Numerator[EulerE[2n]/(2n)! ]; Do[If[PrimeQ[f[n]], Print[n]], {n, 3329}] (* Ryan Propper, Apr 01 2007 *)

Extensions

More terms from Ryan Propper, Apr 01 2007, May 11 2007