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,1

Links

Table of n, a(n) for n=1..32.

Mathematica

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

Crossrefs

Cf. A062238.

Sequence in context: A272932 A309871 A063878 * A210007 A251315 A218814

Adjacent sequences: A063164 A063165 A063166 * A063168 A063169 A063170

Keyword

base,nonn

Author

Robert G. Wilson v, Aug 08 2001

Status

approved