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