|
| |
|
|
A139477
|
|
Number of binary digits in A001109(n).
|
|
0
| |
|
|
1, 3, 6, 8, 11, 13, 16, 18, 21, 23, 26, 29, 31, 34, 36, 39, 41, 44, 46, 49, 51, 54, 56, 59, 62, 64, 67, 69, 72, 74, 77, 79, 82, 84, 87, 90, 92, 95, 97, 100, 102, 105, 107, 110, 112, 115, 118, 120, 123, 125
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
MATHEMATICA
| 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 (*Artur Jasinski*)
|
|
|
CROSSREFS
| Cf. A001109, A139473, A139474, A139475, A139476, A139478.
Sequence in context: A190229 A190085 A047219 * A122437 A090848 A184657
Adjacent sequences: A139474 A139475 A139476 * A139478 A139479 A139480
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Apr 22 2008
|
| |
|
|
