|
|
A147828
|
|
Minimum number k for which the digital sum of k*n is 8*n.
|
|
3
|
|
|
0, 8, 44, 233, 1997, 17999, 83333, 571427, 6249986, 11111111, 899999999, 809090909, 7499999999, 53846076923, 492857142857, 5333333333333, 37499999999993, 176470588235294, 1111111111111111, 5263157894736842, 449999999999999999, 423809047619047619, 3590909090909090909
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MAPLE
|
P:=proc(i) local j, k, n, ok, w; for n from 0 by 1 to i do j:=-1; ok:=1; while ok=1 do j:=j+1; w:=0; k:=n*j; while k>0 do w:=w+k-(trunc(k/10)*10); k:=trunc(k/10); od; if w=8*n then ok:=0; print(j); fi; od; od; end: P(100);
|
|
PROG
|
(PARI) a(n) = {my(k = 0); while (sumdigits(k*n) != 8*n, k++); k; }; \\ Michel Marcus, Mar 21 2016
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
a(14) corrected and a(15)-a(22) added by Chai Wah Wu, Mar 20 2016
|
|
STATUS
|
approved
|
|
|
|