|
Search: id:A063172
|
|
|
| A063172 |
|
Composite numbers which in base 9 contain their largest proper factor as a substring. |
|
+0
2
|
|
| 1387, 1849, 2117, 4307, 8299, 34547, 35947, 38491, 68753, 69679, 84281, 90637, 128729, 183097, 185047, 230689, 281443, 407837, 423979, 483029, 664457, 719399, 904537, 1056403, 1121213, 1236511, 1247707, 1303391, 1308947, 1369751
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
Do[ If[ !PrimeQ[ n ] && StringPosition[ ToString[ FromDigits[ IntegerDigits[ n, 9 ] ] ], ToString[ FromDigits[ IntegerDigits[ Divisors[ n ] [ [ -2 ] ], 9 ] ] ] ] != {}, Print[ n ] ], {n, 2, 2*10^6} ]
|
|
CROSSREFS
|
Cf. A062238.
Sequence in context: A023090 A092721 A063879 this_sequence A031983 A069422 A094666
Adjacent sequences: A063169 A063170 A063171 this_sequence A063173 A063174 A063175
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 08 2001
|
|
|
Search completed in 0.002 seconds
|
