%I #8 Aug 25 2019 10:38:23
%S 1,2,4,6,10,12,14,22,26,28,30,46,54,58,60,62,94,110,118,122,124,126,
%T 190,222,238,246,250,252,254,382,446,478,494,502,506,508,510,766,894,
%U 958,990,1006,1014,1018,1020,1022,1534,1790,1918,1982,2014,2030,2038
%N Smallest positive number m such that A073642(m)=n.
%C A073642(a(n))=n and A073642(k)<n for k<a(n);
%C A073642(A000051(n))=n and A073642(k)>n for k>A000051(n).
%t i = 1; Table[While[Total[Flatten[Position[Rest[Reverse[IntegerDigits[i, 2]]], 1]]] != k, i++]; i, {k, 0, 52}] (* _Jayanta Basu_, Aug 12 2013 *)
%Y Cf. A087135.
%K nonn
%O 0,2
%A _Reinhard Zumkeller_, Aug 17 2003
%E "Positive" added to definition by _N. J. A. Sloane_, Aug 25 2019
|