A087136 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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.