A329487 Primes p such that not all decimal digits of p occur in p^3.
2, 3, 7, 13, 17, 19, 23, 31, 37, 41, 43, 47, 53, 79, 83, 89, 103, 107, 113, 127, 131, 139, 149, 157, 163, 167, 173, 179, 181, 193, 197, 199, 211, 223, 227, 239, 241, 257, 263, 269, 271, 277, 283, 293, 307, 313, 317, 349, 353, 359, 367, 373, 379, 383, 397, 409, 419, 421, 431, 433, 439, 443, 457
Offset: 1
Examples
a(4)=13 is in the sequence because the digit 3 is in 13 but not in 13^3=2197.
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
Maple
filter:= proc(p) if not isprime(p) then return false fi; not (convert(convert(p,base,10),set) subset convert(convert(p^3,base,10), set)) end proc: select(filter, [2,seq(i,i=3..10000,2)]);
Comments