%I #9 Feb 16 2025 08:32:53

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

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

%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Secant.html">Secant</a>

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

%Y Cf. A092838.

%K nonn,more,changed

%O 1,1

%A _Eric W. Weisstein_, Mar 07 2004

%E More terms from _Ryan Propper_, Apr 01 2007, May 11 2007