A260298 Primes p such that hyperfactorial(p-1) == 1 (mod p).
2, 3, 7, 47, 59, 79, 83, 103, 107, 127, 139, 191, 199, 211, 251, 263, 283, 307, 331, 367, 379, 383, 431, 467, 479, 499, 503, 547, 587, 599, 607, 631, 643, 659, 727, 743, 811, 823, 827, 839, 859, 863, 883, 887, 907, 971, 991, 1087, 1151, 1163, 1171, 1259, 1283
Offset: 1
Keywords
Links
- Matthew Campbell and Charles R Greathouse IV, Table of n, a(n) for n = 1..10000 (first 2516 terms from Campbell)
Programs
-
Mathematica
fQ[n_] := Mod[Hyperfactorial[n - 1], n] == 1; Select[ Prime@ Range@ 210, fQ] (* Robert G. Wilson v, Aug 06 2015 *)
-
PARI
is(p)=prod(k=2, p-1, Mod(k, p)^k)==1 && isprime(p) \\ Charles R Greathouse IV, Aug 05 2015
Formula
a(n) = prime(A260299(n)).
Comments