|
|
A063167
|
|
Composite numbers which in base 8 contain their largest proper factor as a substring.
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|