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
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Prime[Range[200]],Intersection[IntegerDigits[#],IntegerDigits[#^3]]==Union[IntegerDigits[#]]&] (* Harvey P. Dale, Apr 23 2025 *)
Extensions
Offset changed by Andrew Howroyd, Aug 13 2024