|
|
A078246
|
|
Smallest multiple of n using only digits 0 and 7.
|
|
3
|
|
|
7, 70, 777, 700, 70, 7770, 7, 7000, 777777777, 70, 77, 77700, 7007, 70, 7770, 70000, 77707, 7777777770, 77007, 700, 777, 770, 770707, 777000, 700, 70070, 7707777777, 700, 7707707, 7770, 777077, 700000, 777777, 777070, 70, 77777777700, 777, 770070
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
With[{c=Rest[FromDigits/@Tuples[{0, 7}, 11]]}, Table[SelectFirst[c, Divisible[ #, n]&], {n, 40}]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 27 2019 *)
|
|
PROG
|
(Haskell)
a078246 n = head [x | x <- tail a204094_list, mod x n == 0]
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|