This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A085460 #12 Apr 22 2025 02:45:27 %S A085460 2,43,47,53,97,367,499,617,653,661,719,757,787,971,1093,1109,1163, %T A085460 1249,1283,1447,1579,1657,1663,1733,1993,2099,2141,2251,2287,2311, %U A085460 2333,2557,2591,2593,2621,2879,2917,2957,2963,2971,3253,3301,3499,3719,3733,3767 %N A085460 Primes p such that there is at least one k dividing (p-1)!-1 (p <= k <= 2p). %t A085460 q[p_] := AnyTrue[Range[p, 2*p], Divisible[(p-1)!-1, #] &]; Select[Prime[Range[300]], q] (* _Amiram Eldar_, Apr 22 2025 *) %o A085460 (PARI) forprime(n=1,1000,if(sum(k=n,2*n,if(((n-1)!-1)%k,0,1))>0,print1(n,","))) %Y A085460 Cf. A177771. %K A085460 nonn %O A085460 1,1 %A A085460 _Benoit Cloitre_, Aug 14 2003 %E A085460 More terms from _Ray Chandler_, Aug 16 2003