login
A087136
Smallest positive number m such that A073642(m)=n.
2
1, 2, 4, 6, 10, 12, 14, 22, 26, 28, 30, 46, 54, 58, 60, 62, 94, 110, 118, 122, 124, 126, 190, 222, 238, 246, 250, 252, 254, 382, 446, 478, 494, 502, 506, 508, 510, 766, 894, 958, 990, 1006, 1014, 1018, 1020, 1022, 1534, 1790, 1918, 1982, 2014, 2030, 2038
OFFSET
0,2
COMMENTS
A073642(a(n))=n and A073642(k)<n for k<a(n);
A073642(A000051(n))=n and A073642(k)>n for k>A000051(n).
MATHEMATICA
i = 1; Table[While[Total[Flatten[Position[Rest[Reverse[IntegerDigits[i, 2]]], 1]]] != k, i++]; i, {k, 0, 52}] (* Jayanta Basu, Aug 12 2013 *)
CROSSREFS
Cf. A087135.
Sequence in context: A164875 A301646 A024892 * A015921 A232964 A348442
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Aug 17 2003
EXTENSIONS
"Positive" added to definition by N. J. A. Sloane, Aug 25 2019
STATUS
approved