|
|
A242959
|
|
Numbers n such that 5^A000010(n) == 1 (mod n^2).
|
|
11
|
|
|
2, 20771, 40487, 41542, 80974, 83084, 161948, 643901, 1255097, 1287802, 1391657, 1931703, 2510194, 2575604, 2783314, 3765291, 3863406, 4174971, 5020388, 5151208, 5566628, 7530582, 7726812, 8349942, 10040776, 11133256, 15061164, 15308227, 15453624, 16699884
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[167*10^5], PowerMod[5, EulerPhi[#], #^2]==1&] (* Harvey P. Dale, Jun 02 2020 *)
|
|
PROG
|
(PARI) for(n=2, 10^9, if(Mod(5, n^2)^(eulerphi(n))==1, print1(n, ", ")))
|
|
CROSSREFS
|
If a(n) is prime, then a(n) is in A123692.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|