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 A121624 #16 Mar 02 2025 22:55:39
%S A121624 1,2,6,9,26,179,289,25564,109436
%N A121624 Numbers k such that floor((prime(k)/k)^k) is prime.
%C A121624 a(9) > 39637. - _J.W.L. (Jan) Eerland_, Nov 11 2024
%t A121624 fQ[n_] := PrimeQ[Floor[(Prime[n]/n)^n]]; Do[ If[fQ@n, Print@n], {n, 10000}] (* _Robert G. Wilson v_ Aug 17 2006 *)
%t A121624 n=1;Monitor[Parallelize[While[True,If[PrimeQ[Floor[(Prime[n]/n)^n]],Print[n]];n++];n],n] (* _J.W.L. (Jan) Eerland_, Nov 11 2024 *)
%Y A121624 Cf. A121623.
%K A121624 more,nonn
%O A121624 1,2
%A A121624 _Jason Earls_, Aug 11 2006
%E A121624 a(8) from _J.W.L. (Jan) Eerland_, Nov 11 2024
%E A121624 a(9) from _Michael S. Branicky_, Mar 02 2025