OFFSET
1,1
COMMENTS
See A092218 for a list of all primes that divide some E(k) for even k.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
MATHEMATICA
q[n_] := PrimeQ[n] && ! Divisible[EulerE[n - 1], n] && AnyTrue[Range[2, n - 2, 2], Divisible[EulerE[#], n] &]; Select[Range[1500], q] (* Amiram Eldar, Apr 07 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Jun 09 2006
STATUS
approved