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 A330563 #7 Dec 23 2024 21:57:43
%S A330563 101,103,109,401,601,701,1009,1021,1033,1051,1063,1201,1303,1801,2011,
%T A330563 2017,2081,2801,3001,3061,3301,4001,4021,4201,4801,5011,5021,5051,
%U A330563 5081,5101,5501,5801,6301
%N A330563 Primes in A330562.
%H A330563 Robert Israel, <a href="/A330563/b330563.txt">Table of n, a(n) for n = 1..10000</a>
%p A330563 filter:= proc(k) local L;
%p A330563 L:= convert(convert(k,base,10),set);
%p A330563 andmap(d -> member(k mod d, L), L minus {0}) and isprime(k)
%p A330563 end proc:
%p A330563 select(filter, [seq(i,i=101..10000,2)]); # _Robert Israel_, Dec 23 2024
%Y A330563 Cf. A330562.
%K A330563 nonn,base
%O A330563 1,1
%A A330563 _James R. Buddenhagen_, Dec 31 2019