%I #10 Nov 01 2023 18:41:09
%S 1035743,1045573,1215397,1396247,1642309,2031487,2149573,2363149,
%T 2385961,2458019,2569751,2815973,2857319,2986301,3109867,3349517,
%U 3482461,3530467,3865079,4332871,4387291,4631489,4893617,5170283
%N Primes p such that all digits of p^3 appear in p.
%H Robert Israel, <a href="/A030084/b030084.txt">Table of n, a(n) for n = 1..2000</a>
%p filter:= proc(p) isprime(p) and convert(convert(p^3,base,10),set) subset convert(convert(p,base,10),set) end proc:
%p select(filter, [seq(i,i=3..3*10^6,2)]); # _Robert Israel_, Nov 01 2023
%Y Includes A050288.
%Y Cf. A030083.
%K nonn,base
%O 1,1
%A _Patrick De Geest_
%E Offset corrected by _Robert Israel_, Nov 01 2023
|