This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A329487 #8 Nov 15 2019 00:55:32 %S A329487 2,3,7,13,17,19,23,31,37,41,43,47,53,79,83,89,103,107,113,127,131,139, %T A329487 149,157,163,167,173,179,181,193,197,199,211,223,227,239,241,257,263, %U A329487 269,271,277,283,293,307,313,317,349,353,359,367,373,379,383,397,409,419,421,431,433,439,443,457 %N A329487 Primes p such that not all decimal digits of p occur in p^3. %C A329487 Complement of A030080 in the primes. %C A329487 Includes 3*10^k-7 if k is in A102964. %H A329487 Robert Israel, <a href="/A329487/b329487.txt">Table of n, a(n) for n = 1..10000</a> %e A329487 a(4)=13 is in the sequence because the digit 3 is in 13 but not in 13^3=2197. %p A329487 filter:= proc(p) %p A329487 if not isprime(p) then return false fi; %p A329487 not (convert(convert(p,base,10),set) subset convert(convert(p^3,base,10), set)) %p A329487 end proc: %p A329487 select(filter, [2,seq(i,i=3..10000,2)]); %Y A329487 Cf. A030080, A102964. %K A329487 nonn,base %O A329487 1,1 %A A329487 _Robert Israel_, Nov 14 2019