OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(4)=13 is in the sequence because the digit 3 is in 13 but not in 13^3=2197.
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)]);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert Israel, Nov 14 2019
STATUS
approved