A030080 Primes p such that digits of p appear in p^3.

5, 11, 29, 59, 61, 67, 71, 73, 97, 101, 109, 137, 151, 191, 229, 233, 251, 281, 311, 331, 337, 347, 389, 401, 449, 467, 499, 541, 619, 641, 683, 701, 719, 733, 751, 769, 787, 829, 881, 883, 887, 919, 947, 977, 991, 997, 1009, 1013, 1019, 1021

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

Select[Prime[Range[200]], Intersection[IntegerDigits[#], IntegerDigits[#^3]]==Union[IntegerDigits[#]]&] (* Harvey P. Dale, Apr 23 2025 *)

Crossrefs

Primes in A029776.

Cf. A030082.

Sequence in context: A340544 A062772 A319597 * A046141 A233540 A107135

Adjacent sequences: A030077 A030078 A030079 * A030081 A030082 A030083

Keyword

nonn,base

Author

Patrick De Geest

Extensions

Offset changed by Andrew Howroyd, Aug 13 2024

Status

approved