%I #11 Nov 11 2024 05:04:13
%S 1,2,6,9,26,179,289,25564
%N Numbers k such that floor((prime(k)/k)^k) is prime.
%C a(9) > 39637. - _J.W.L. (Jan) Eerland_, Nov 11 2024
%t fQ[n_] := PrimeQ[Floor[(Prime[n]/n)^n]]; Do[ If[fQ@n, Print@n], {n, 10000}] (* _Robert G. Wilson v_ Aug 17 2006 *)
%t 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 Cf. A121623.
%K more,nonn
%O 1,2
%A _Jason Earls_, Aug 11 2006
%E a(8) from _J.W.L. (Jan) Eerland_, Nov 11 2024