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 A181173 #6 Feb 16 2015 20:21:04
%S A181173 2,3,7,11,13,17,19,23,31,37,41,43,47,59,61,67,71,73,83,89,97,107,109,
%T A181173 113,157,163,167,173,181,191,193,197,199,211,223,233,239,241,281,283,
%U A181173 293,307,311,313,317,331,337,347,349,359,367,373,409,419,421,431,433
%N A181173 Primes whose base 5 representation does not contain a 0.
%e A181173 23 = 43 (base 5) which contains no 0.
%p A181173 The following stores the first 200 digits of the sequence in K: for i from 1 to 200 do if i=i then x[i]:=convert(ithprime(i),base,5) else x[i]:=0 end if: end do: S:={}: for i from 1 to 200 do if evalb(`in`(0, x[i]))=false then S:=S union {i} fi od; for i from 1 to nops(S)do z[i]:=ithprime(S[i]) od: K:=[seq((z[i]),i=1..nops(S))];
%Y A181173 Cf. A082555.
%K A181173 base,nonn
%O A181173 1,1
%A A181173 _Jonathan D. B. Hodgson_, Oct 08 2010