1,2

Table of n, a(n) for n=1..100.

Table[k=1; While[Floor[k*Log[2, n+1]]<=k*Log[2, n], k++]; k, {n, 100}]

Cf. A183163.

Sequence in context: A265911 A078458 A033317 * A305422 A007733 A128520

Adjacent sequences: A183197 A183198 A183199 * A183201 A183202 A183203

nonn

Clark Kimberling, Dec 29 2010

approved