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 A063167 #3 Mar 30 2012 17:30:32
%S A063167 893,1961,7087,14219,30607,35417,47053,53953,55421,61513,80089,90509,
%T A063167 127067,157967,162521,186059,233273,340987,344051,378589,442583,
%U A063167 458441,469213,607567,617503,668923,671599,739561,767341,868591,923633,927463
%N A063167 Composite numbers which in base 8 contain their largest proper factor as a substring.
%t A063167 Do[ If[ !PrimeQ[ n ] && StringPosition[ ToString[ FromDigits[ IntegerDigits[ n, 8 ] ] ], ToString[ FromDigits[ IntegerDigits[ Divisors[ n ] [ [ -2 ] ], 8 ] ] ] ] != {}, Print[ n ] ], {n, 2, 10^6} ]
%Y A063167 Cf. A062238.
%K A063167 base,nonn
%O A063167 1,1
%A A063167 _Robert G. Wilson v_, Aug 08 2001