login
A147826
Minimum number k for which the digital sum of k*n is 6*n.
3
0, 6, 24, 33, 222, 1599, 3333, 11427, 87486, 111111, 6999999, 6090909, 24999999, 69076923, 357142857, 3333333333, 6249999993, 29411764647, 111111111111, 421047368421, 24999999999999, 9047619047619, 159090909090909, 217391304347826, 1666666666666662, 15999999999999999
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=6*n then ok:=0; print(j); fi; od; od; end: P(100);
PROG
(PARI) a(n) = {my(k = 0); while (sumdigits(k*n) != 6*n, k++); k; }; \\ Michel Marcus, Mar 21 2016
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
EXTENSIONS
Edited by Charles R Greathouse IV, Nov 01 2009
a(10)-a(19) from Donovan Johnson, Sep 16 2012
a(20)-a(25) from Chai Wah Wu, Mar 20 2016
STATUS
approved