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,1

Comments

Does this contain 2 and the entries of A129518? - R. J. Mathar, Aug 07 2015

Primes p such that (p-1)!! == -1 (mod p). - Thomas Ordowski, Jul 26 2016

Links

Matthew Campbell and Charles R Greathouse IV, Table of n, a(n) for n = 1..10000 (first 2516 terms from Campbell)

Formula

a(n) = prime(A260299(n)).

Mathematica

fQ[n_] := Mod[Hyperfactorial[n - 1], n] == 1; Select[ Prime@ Range@ 210, fQ] (* Robert G. Wilson v, Aug 06 2015 *)

Prog

(PARI) is(p)=prod(k=2, p-1, Mod(k, p)^k)==1 && isprime(p) \\ Charles R Greathouse IV, Aug 05 2015

Crossrefs

Cf. A000040, A002109, A129518, A260178, A260297, A260299.

Sequence in context: A000231 A090593 A030090 * A283807 A344488 A257108

Adjacent sequences: A260295 A260296 A260297 * A260299 A260300 A260301

Keyword

nonn

Author

Matthew Campbell, Jul 22 2015

Status

approved