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 A180493 #8 Jun 02 2025 03:04:10 %S A180493 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,21,22,23,24,25,26,27, %T A180493 29,30,35,38,39,40,53 %N A180493 Numbers n such that prime(n)! is divisible by A180491(prime(n)). %C A180493 Also numbers n such that prime(n)! is divisible by A180492(n). %C A180493 Is this sequence finite? %C A180493 From _Robert G. Wilson v_, Sep 09 2010: (Start) %C A180493 Checked to 10000 for more terms. %C A180493 Conjecture: This sequence is finite and all its terms are present. (End) %t A180493 f[n_] := Times @@ Mod[n, Range[2, n - 1]]; k = 1; lst = {}; While[k < 10001, If[ Divisible[ Prime@k!, f@Prime@k], AppendTo[lst, k]; Print@k]; k++ ]; lst (* _Robert G. Wilson v_, Sep 09 2010 *) %Y A180493 Cf. A034386, A000142, A004125, A180491, A180492. %K A180493 hard,more,nonn %O A180493 1,2 %A A180493 _Carl R. White_, Sep 08 2010