[seqfan] Re: need help for a calculation

[Hans Havermann]

A005378: {1, 1, 2, 2, 3, 3, 4, 5, 5, 6, 6, 7, 8, 8, 9, 9, 10, 11, 11, 12, 13...}

Table[Length[IntegerDigits[Floor[(3/2)^n], 2]], {n, 0, 20}]
{1, 1, 2, 2, 3, 3, 4, 5, 5, 6, 6, 7, 8, 8, 9, 9, 10, 10, 11, 12, 12}

On Jun 28, 2014, at 2:41 PM, David Newman <davidsnewman at gmail.com> wrote:

> How many binary digits are there in Floor [ (3/2) ^n ] ?
> The first 16 values that I've computed by hand seem to agree with A005378.