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

Author

Reinhard Zumkeller, Aug 17 2003

Keywords

• nonn

Comments

A073642(a(n))=n and A073642(k)

A073642(A000051(n))=n and A073642(k)>n for k>A000051(n).

Crossrefs

Cf. A087135.

Programs

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

Extensions

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

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.