OFFSET
1,1
FORMULA
a(n) = A030087(n)^3. - Andrew Howroyd, Aug 13 2024
MATHEMATICA
#^3&/@Select[Prime[Range[3000]], Intersection[ IntegerDigits[#], IntegerDigits[ #^3]]=={}&] (* Harvey P. Dale, Apr 18 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Offset corrected by Andrew Howroyd, Aug 13 2024
STATUS
approved