A087136 Smallest positive number m such that A073642(m)=n.

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).

Links

Table of n, a(n) for n=0..52.

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

Adjacent sequences: A087133 A087134 A087135 * A087137 A087138 A087139

Keyword

nonn

Author

Reinhard Zumkeller, Aug 17 2003

Extensions

"Positive" added to definition by N. J. A. Sloane, Aug 25 2019

Status

approved