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 A063156 #3 Mar 30 2012 17:30:32
%S A063156 9,403,8383,9287,14299,15403,16459,17543,19291,20989,25807,26743,
%T A063156 30301,68191,96307,111277,120059,121903,158299,166391,195583,221443,
%U A063156 238603,248551,292499,317131,356879,403927,421901,422419,440599,443119,457297
%N A063156 Composite numbers which in base 6 contain their largest proper factor as a substring.
%t A063156 Do[ If[ !PrimeQ[ n ] && StringPosition[ ToString[ FromDigits[ IntegerDigits[ n, 6 ] ] ], ToString[ FromDigits[ IntegerDigits[ Divisors[ n ] [ [ -2 ] ], 6 ] ] ] ] != {}, Print[ n ] ], {n, 2, 10^6} ]
%Y A063156 Cf. A062238.
%K A063156 base,nonn
%O A063156 1,1
%A A063156 _Robert G. Wilson v_, Aug 08 2001