login
Numbers k such that floor((prime(k)/k)^k) is prime.
1

%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