|
|
A120337
|
|
Euler-irregular primes p dividing E(2k) for some 2k < p-1.
|
|
10
|
|
|
19, 31, 43, 47, 61, 67, 71, 79, 101, 137, 139, 149, 193, 223, 241, 251, 263, 277, 307, 311, 349, 353, 359, 373, 379, 419, 433, 461, 463, 491, 509, 541, 563, 571, 577, 587, 619, 677, 691, 709, 739, 751, 761, 769, 773, 811, 821, 877, 887, 907, 929, 941, 967, 971, 983
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Conjecture (Ernvall and Metsänkylä, 1978): The asymptotic density of this sequence within the primes is 1 - 1/sqrt(e) = 0.393469... (A290506), the same as the corresponding conjectured density of the irregular primes (A000928). - Amiram Eldar, Dec 06 2022
|
|
LINKS
|
|
|
FORMULA
|
The (trivial) divisors of E(2n) are given by the theorem of Sylvester (1861): Let p prime with p=1 (mod 4), p-1|2n, p^k|2n then p^{k+1} | E(2n).
|
|
EXAMPLE
|
a(1) = 19 because 19 divides E(10) = -19*2659 and 10 + 1 < 19.
|
|
MAPLE
|
local ae, F, p, m, maxp; F := NULL;
for m from 2 by 2 to bound do
p := nextprime(m+1);
ae := abs(euler(m));
maxp := min(ae, bound);
while p <= maxp do
if ae mod p = 0
then F := F, p fi;
p := nextprime(p);
od;
od;
|
|
MATHEMATICA
|
fQ[p_] := Block[{k = 1}, While[ 2k +1 < p && Mod[ EulerE[ 2k], p] != 0, k++]; p > 2k +1]; Select[ Prime@ Range@ 168, fQ@# &] (* Robert G. Wilson v, Dec 10 2014 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|