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 A182624 #13 Aug 18 2018 21:37:12
%S A182624 7,13,29,61,101,107,199,211,229,241,419,449,467,479,769,823,829,859,
%T A182624 991,1009,1021,1571,1601,1637,1667,1697,1733,1811,1847,1877,1901,1907,
%U A182624 1931,3079,3109,3229,3271,3307,3331,3457,3499,3529,3541,3547
%N A182624 Primes in A182623.
%H A182624 Nathaniel Johnston, <a href="/A182624/b182624.txt">Table of n, a(n) for n = 1..2000</a>
%p A182624 lim:=1800: with(numtheory):A182624:={}:for n from 1 to lim do s:="": for d in divisors(n) do s:= cat(s,convert(convert(d, binary),string)): od: m:=convert(parse(s),decimal,binary):if(isprime(m))then A182624:=A182624 union {m};fi: od:
%p A182624 A182624:=sort(convert(A182624,list)):for n from 1 to nops(A182624) do if(A182624[n]>2*lim)then break:fi:printf("%d, ",A182624[n]):od: # _Nathaniel Johnston_, Apr 19 2011
%Y A182624 Cf. A000040, A182620, A182621, A182622, A182623.
%K A182624 nonn,base
%O A182624 1,1
%A A182624 _Omar E. Pol_, Nov 23 2010
%E A182624 More terms from _Vincenzo Librandi_, Jan 30 2011
%E A182624 a(16) - a(44) from _Nathaniel Johnston_, Apr 19 2011