|
Search: id:A063877
|
|
|
| A063877 |
|
Composite numbers not divisible by 7 which in base 7 contain their largest proper factor as a substring. |
|
+0
1
|
|
| 551, 989, 1333, 1363, 5429, 20081, 26167, 28381, 28577, 29719, 60803, 139163, 147733, 150047, 161647, 217103, 224437, 262921, 293921, 298007, 302387, 312913, 342103, 345127, 385937, 436129, 508309, 509189, 539647, 829921, 873827, 921391
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
Do[ If[ !PrimeQ[ n ] && Mod[ n, 7 ] != 0 && StringPosition[ ToString[ FromDigits[ IntegerDigits[ n, 7 ] ] ], ToString[ FromDigits[ IntegerDigits[ Divisors[ n ][ [ -2 ] ], 7 ] ] ] ] != {}, Print[ n ] ], {n, 3, 10^6} ]
|
|
CROSSREFS
|
Sequence in context: A141547 A034282 A127347 this_sequence A119897 A014360 A158636
Adjacent sequences: A063874 A063875 A063876 this_sequence A063878 A063879 A063880
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 27 2001
|
|
|
Search completed in 0.002 seconds
|
