OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..2000
MAPLE
filter:= proc(p) isprime(p) and convert(convert(p^3, base, 10), set) subset convert(convert(p, base, 10), set) end proc:
select(filter, [seq(i, i=3..3*10^6, 2)]); # Robert Israel, Nov 01 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Offset corrected by Robert Israel, Nov 01 2023
STATUS
approved