%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