%I #8 Dec 22 2012 15:14:57
%S 1,10,111,10,11,1110,111,100,1101,110,11111,1110,1001,1110,111111,100,
%T 101,11010,100111,110,111,111110,1011,11100,11011,10010,1101,1110,
%U 10011,1111110,11111,1000,101001,1010,111111,11010,1001111
%N Least positive multiple of n written in base 4 using only 0 and 1.
%H Harvey P. Dale, <a href="/A004284/b004284.txt">Table of n, a(n) for n = 1..200</a>
%t lpm4[n_]:=Module[{k=1},While[Rest[Most[DigitCount[n k,4]]]!={0,0},k++]; FromDigits[IntegerDigits[n k,4]]]; Array[lpm4,40] (* _Harvey P. Dale_, Dec 22 2012 *)
%K nonn,base
%O 1,2
%A _David W. Wilson_
|