OFFSET
1,1
EXAMPLE
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.
MATHEMATICA
For[i = 1, i < 10000, If[PrimeQ[IntegerPart[Prime[i]^Pi]] == True, Print[IntegerPart[Prime[i]^Pi]]]; i++ ]
Select[Floor[Prime[Range[500]]^Pi], PrimeQ] (* Harvey P. Dale, Aug 02 2021 *)
CROSSREFS
Cf. A074218.
KEYWORD
nonn
AUTHOR
Neil Fernandez, Jan 27 2003
STATUS
approved