OFFSET
1,1
COMMENTS
EXAMPLE
a(1) = 2^5 = 32 because when its most significant (or leftmost) digit (3) is removing the remaining 2 is prime.
MATHEMATICA
Select[Range[500]^5, PrimeQ[FromDigits[Rest[IntegerDigits[#]]]]&] (* Harvey P. Dale, Nov 10 2021 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Jonathan Vos Post, May 26 2013
STATUS
approved