login
A120115
Primes p that divide some Euler number E(k) for even k < p-1, but p does not divide E(p-1).
4
19, 31, 43, 47, 67, 71, 79, 139, 223, 251, 263, 307, 311, 359, 379, 419, 463, 491, 563, 571, 587, 619, 691, 739, 751, 811, 887, 907, 967, 971, 983, 1019, 1031, 1039, 1051, 1151, 1163, 1187, 1223, 1231, 1279, 1283, 1291, 1307, 1319, 1399, 1423, 1427, 1439
OFFSET
1,1
COMMENTS
See A092218 for a list of all primes that divide some E(k) for even k.
LINKS
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
Sequence in context: A164320 A154418 A120337 * A157995 A043298 A286313
KEYWORD
nonn
AUTHOR
T. D. Noe, Jun 09 2006
STATUS
approved