A049050 Least p with exactly n distinct factorial numbers == 1 (mod p).

2, 5, 29, 17, 23, 199, 619, 3313, 4093, 3011, 355799, 52163, 12087071, 3408707, 26927543

Offset

1,1

Links

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

Prog

(PARI) f(n) = my(p = prime(n)); sum(k = 1, p-1, k! % p == 1); \\ A049047
a(n) = my(k=1); while (f(k) != n, k++); prime(k); \\ Michel Marcus, Jun 08 2026

Crossrefs

Cf. A049046, A049047, A071710.

Sequence in context: A358444 A327345 A391216 * A344020 A178322 A165161

Adjacent sequences: A049047 A049048 A049049 * A049051 A049052 A049053

Keyword

nonn,more,changed

Author

David W. Wilson

Extensions

a(13)-a(15) from Giovanni Resta, Jun 28 2019

Status

approved