|
%I #10 Aug 02 2021 18:52:30
%S 31,714169,2516309,4483363,47127727,145996069,583363661,1028282141,
%T 1637687383,1984271941,3680735213,4484951059,5187593417,8601029209,
%U 19614906869,23431992781,33458412373,40695658637,41234578433
%N Primes of the form floor(x^Pi) where x is prime.
%e The smallest prime x for which floor(x^Pi) is prime, is 3, for which floor(3^Pi)=31, which is prime, so a(1)=31. The next smallest is 73, for which floor(73^Pi)=714169, so a(2)=714169.
%t For[i = 1, i < 10000, If[PrimeQ[IntegerPart[Prime[i]^Pi]] == True, Print[IntegerPart[Prime[i]^Pi]]]; i++ ]
%t Select[Floor[Prime[Range[500]]^Pi],PrimeQ] (* _Harvey P. Dale_, Aug 02 2021 *)
%Y Cf. A074218.
%K nonn
%O 1,1
%A _Neil Fernandez_, Jan 27 2003
|
