%I #7 May 05 2024 19:18:10
%S 2,3,5,6,7,11,12,14,16,18,19,21,22,24,25,27,29,31,38,39,40,44,47,48,
%T 50,51,54,55,56,58,59,63,65,66,67,68,70,71,73,74,75,76,78,84,85,86,88,
%U 90,93,95,96,100,102,103,105,107,108,110,111,112,117,118,119,122,123,127
%N Numbers n such that floor((prime(n+1)/prime(n))^n) is prime.
%H Paolo Xausa, <a href="/A121700/b121700.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[200], PrimeQ[Floor[(Prime[# + 1]/Prime[#])^#]] &] (* _Paolo Xausa_, May 05 2024 *)
%Y Cf. A121699.
%K easy,nonn
%O 1,1
%A _Jason Earls_, Aug 16 2006
|