|
|
A177005
|
|
Numbers k such that k^k = k (mod prime(k)).
|
|
0
|
|
|
1, 4, 169, 391, 1546, 16761, 18278, 20201, 21775, 31120, 126882, 178465, 9502273, 10553442, 24677776, 56923413, 422766345, 1759518201, 4152696703, 6800832991, 14421293461, 106195400697, 667339219893, 915091102299
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
20201 is a prime term of this sequence. What is the next such prime?
The next prime term is a(20) = 6800832991. - Giovanni Resta, May 10 2020
|
|
LINKS
|
|
|
MATHEMATICA
|
Do[If[PowerMod[n, n, Prime[n]] == n, Print[n]], {n, 350000000}]
|
|
PROG
|
(PARI) is(k) = Mod(k, prime(k))^k == k; \\ Jinyuan Wang, May 09 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|