A030089 a(n) = prime^3 and digits of prime do not appear in a(n).

8, 27, 343, 79507, 103823, 148877, 3869893, 11089567, 18191447, 115501303, 192100033, 202262003, 557441767, 100999381393, 181033328393, 294477807077, 369682454233, 569104495903, 815565876607, 19199315959433

Offset: 1

Author

Patrick De Geest

Keywords

• nonn
• base

Crossrefs

Cf. A030087.

Programs

Mathematica

#^3&/@Select[Prime[Range[3000]],Intersection[ IntegerDigits[#], IntegerDigits[ #^3]]=={}&] (* Harvey P. Dale, Apr 18 2019 *)

Formula

a(n) = A030087(n)^3. - Andrew Howroyd, Aug 13 2024

Extensions

Offset corrected by Andrew Howroyd, Aug 13 2024