A139477 - OEIS

%I #17 Oct 13 2015 11:07:52

%S 1,3,6,8,11,13,16,18,21,23,26,29,31,34,36,39,41,44,46,49,51,54,56,59,

%T 62,64,67,69,72,74,77,79,82,84,87,90,92,95,97,100,102,105,107,110,112,

%U 115,118,120,123,125

%N Number of binary digits in A001109(n).

%F a(n) = A070939(A001109(n)). - _Michel Marcus_, Nov 02 2013

%t a = {}; Do[k = Length[IntegerDigits[Expand[((2*Sqrt[2] + 3)^(n) - (3 - 2*Sqrt[2])^(n))/(4*Sqrt[2])], 2]]; Print[k]; AppendTo[a, k], {n, 1, 50}]; a

%t Rest[IntegerLength[#,2]&/@LinearRecurrence[{6,-1},{0,1},60]] (* _Harvey P. Dale_, Feb 11 2015 *)

%Y Cf. A001109, A139473, A139474, A139475, A139476, A139478.

%K base,nonn

%O 1,2

%A _Artur Jasinski_, Apr 22 2008

%E Incorrect link to index entries for linear recurrences with constant coefficients removed by _Colin Barker_, Oct 13 2015