%I A063156
%S A063156 9,403,8383,9287,14299,15403,16459,17543,19291,20989,25807,26743,30301,
%T A063156 68191,96307,111277,120059,121903,158299,166391,195583,221443,238603,
%U A063156 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.
%Y A063156 Sequence in context: A012078 A157599 A063876 this_sequence A058850 A151632 
               A035024
%Y A063156 Adjacent sequences: A063153 A063154 A063155 this_sequence A063157 A063158 
               A063159
%K A063156 base,nonn
%O A063156 1,1
%A A063156 Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 08 2001