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 A063132 #3 Mar 30 2012 17:30:32
%S A063132 49,427,671,949,1387,1679,1849,2117,3397,3829,4307,6017,6169,7141,
%T A063132 8299,10547,11773,13703,17161,17819,19517,24523,25019,25877,29941,
%U A063132 30607,31459,33853,34447,34547,35657,35947,38243,38491,38579,39283,45571
%N A063132 Composite numbers not divisible by 2 or 3 which in base 3 contain their largest proper factor as a substring.
%t A063132 Do[ If[ !PrimeQ[ n ] && Mod[ n, 3 ] != 0 && StringPosition[ ToString[ FromDigits[ IntegerDigits[ n, 3 ] ] ], ToString[ FromDigits[ IntegerDigits[ Divisors[ n ][ [ -2 ] ], 3 ] ] ] ] != {}, Print[ n ] ], {n, 3, 10^5, 2} ]
%Y A063132 Cf. A063127, A062238.
%K A063132 base,nonn
%O A063132 1,1
%A A063132 _Robert G. Wilson v_, Aug 08 2001