%I A063163
%S A063163 49,77,91,119,133,161,203,217,259,287,301,329,343,371,413,427,469,497,
%T A063163 511,539,551,553,581,623,637,679,707,721,749,763,791,833,847,889,917,
%U A063163 931,959,973,989,1001,1043,1057,1099,1127,1141,1169,1183,1211,1253
%N A063163 Composite numbers which in base 7 contain their largest proper factor 
               as a substring.
%t A063163 Do[ If[ !PrimeQ[ n ] && StringPosition[ ToString[ FromDigits[ IntegerDigits[ 
               n, 7 ] ] ], ToString[ FromDigits[ IntegerDigits[ Divisors[ n ] [ 
               [ -2 ] ], 7 ] ] ] ] != {}, Print[ n ] ], {n, 2, 2000} ]
%Y A063163 Cf. A062238.
%Y A063163 Sequence in context: A112074 A112057 A038510 this_sequence A103216 A036307 
               A056938
%Y A063163 Adjacent sequences: A063160 A063161 A063162 this_sequence A063164 A063165 
               A063166
%K A063163 base,nonn
%O A063163 1,1
%A A063163 Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 08 2001