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

Links

Table of n, a(n) for n=1..12.

Eric Weisstein's World of Mathematics, Secant

Mathematica

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

Crossrefs

Cf. A092838.

Sequence in context: A265902 A245453 A067805 * A058772 A227941 A250259

Adjacent sequences: A092834 A092835 A092836 * A092838 A092839 A092840

Keyword

nonn,more

Author

Eric W. Weisstein, Mar 07 2004

Extensions

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

Status

approved