login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A147822 Minimum number k for which the digital sum of k*n is 2*n. 10
0, 2, 2, 2, 2, 11, 8, 11, 11, 11, 299, 209, 74, 146, 407, 533, 623, 587, 1111, 2621, 29999, 3809, 20909, 13043, 29162, 119999, 38423, 37037, 178571, 241031, 2333333, 645158, 1874684, 2030303, 2352647, 11142857, 8333333, 47027027, 18418421, 23025641, 499999997 (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=2*n then ok:=0; print(j); fi; od; od; end: P(100);
MATHEMATICA
cmnk=Compile[{{n, _Integer}}, Module[{k=0}, While[Total[ IntegerDigits[ k*n]] != 2n, k++]; k], RuntimeAttributes -> {Listable}, Parallelization -> True]; Array[cmnk, 41, 0] (* Harvey P. Dale, Mar 01 2016 *)
PROG
(PARI) a(n) = {my(k = 0); while (sumdigits(k*n) != 2*n, k++); k; }; \\ Michel Marcus, Mar 21 2016
CROSSREFS
Sequence in context: A289910 A112727 A164918 * A316497 A084961 A226398
KEYWORD
easy,nonn,base
AUTHOR
EXTENSIONS
Edited by Charles R Greathouse IV, Nov 01 2009
a(35)-a(40) from Donovan Johnson, Sep 16 2012
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 08:01 EDT 2024. Contains 371265 sequences. (Running on oeis4.)