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
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