A085460 Primes p such that there is at least one k dividing (p-1)!-1 (p <= k <= 2p).

2, 43, 47, 53, 97, 367, 499, 617, 653, 661, 719, 757, 787, 971, 1093, 1109, 1163, 1249, 1283, 1447, 1579, 1657, 1663, 1733, 1993, 2099, 2141, 2251, 2287, 2311, 2333, 2557, 2591, 2593, 2621, 2879, 2917, 2957, 2963, 2971, 3253, 3301, 3499, 3719, 3733, 3767

Offset: 1

Author

Benoit Cloitre, Aug 14 2003

Keywords

• nonn

Crossrefs

Cf. A177771.

Programs

Mathematica

q[p_] := AnyTrue[Range[p, 2*p], Divisible[(p-1)!-1, #] &]; Select[Prime[Range[300]], q] (* Amiram Eldar, Apr 22 2025 *)

PARI

forprime(n=1,1000,if(sum(k=n,2*n,if(((n-1)!-1)%k,0,1))>0,print1(n,",")))

Extensions

More terms from Ray Chandler, Aug 16 2003