OFFSET
1,1
COMMENTS
No additional terms in the first 1 million primes. - Harvey P. Dale, Apr 25 2018
MATHEMATICA
Select[Prime[Range[1000000]], Intersection[Union[Flatten[ IntegerDigits/@ {#^2, #^3}]], IntegerDigits[#]] == {}&] (* Harvey P. Dale, Apr 25 2018 *)
CROSSREFS
KEYWORD
nonn,base,hard
AUTHOR
EXTENSIONS
Offset changed by Andrew Howroyd, Aug 13 2024
STATUS
approved