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.
f[n_] := Block[{k = p = 1, m = Prime[n]}, While[p = Mod[p k, m]; k < n, k++ ]; p]; Do[ If[ f[n] == 1, Print[n]], {n, 100000}] (* Robert G. Wilson v, Mar 16 2004 *)
f[k_] := (k! + 1)/Prime[k]; f /@ Select[Range[100], IntegerQ[f[#]] &] (* Amiram Eldar, Apr 22 2025 *)
list(lim) = {my(k = 0, r = 1); forprime(p = 1, lim, k++; r *= k; if(!((r+1) % p), print1((r+1)/p, ", ")));} \\ Amiram Eldar, Apr 22 2025
Comments