A177005 Numbers k such that k^k = k (mod prime(k)).

1, 4, 169, 391, 1546, 16761, 18278, 20201, 21775, 31120, 126882, 178465, 9502273, 10553442, 24677776, 56923413, 422766345, 1759518201, 4152696703, 6800832991, 14421293461, 106195400697, 667339219893, 915091102299

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

Table of n, a(n) for n=1..24.

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

Cf. A117131, A225944.

Sequence in context: A302453 A061710 A262687 * A017414 A051476 A283566

Adjacent sequences: A177002 A177003 A177004 * A177006 A177007 A177008

Keyword

nonn,more

Author

Farideh Firoozbakht, May 02 2010

Extensions

a(17) from Jinyuan Wang, May 09 2020

a(18)-a(24) from Giovanni Resta, May 10 2020

Status

approved