A063167 Composite numbers which in base 8 contain their largest proper factor as a substring.

893, 1961, 7087, 14219, 30607, 35417, 47053, 53953, 55421, 61513, 80089, 90509, 127067, 157967, 162521, 186059, 233273, 340987, 344051, 378589, 442583, 458441, 469213, 607567, 617503, 668923, 671599, 739561, 767341, 868591, 923633, 927463

Offset: 1

Author

Robert G. Wilson v, Aug 08 2001

Keywords

• base
• nonn

Crossrefs

Cf. A062238.

Programs

Mathematica

Do[ If[ !PrimeQ[ n ] && StringPosition[ ToString[ FromDigits[ IntegerDigits[ n, 8 ] ] ], ToString[ FromDigits[ IntegerDigits[ Divisors[ n ] [ [ -2 ] ], 8 ] ] ] ] != {}, Print[ n ] ], {n, 2, 10^6} ]