A247562 A101402(10^n).

1, 4, 36, 355, 3549, 35495, 354942, 3549413, 35494123, 354941215, 3549412151, 35494121507, 354941215066, 3549412150655, 35494121506548, 354941215065477, 3549412150654758, 35494121506547571, 354941215065475694, 3549412150654756948

Offset

0,2

Comments

if c = 0.3549412150654756947265447261312365125932387..., then a(n) =~ floor(c*10^n). This holds to n^7 +- 2.

Links

Charles R Greathouse IV  and Robert G. Wilson v, Table of n, a(n) for n = 0..1000

Mathematica

a[0] = 0; a[1] = 1; a[n_] := a[n] = Block[{p = 2^(Ceiling[Log[2, n]] - 1)}, a[p] + a[n - 1 - p]];
Table[a[10^n], {n, 0, 20}]

Crossrefs

Cf. A101402.

Sequence in context: A288269 A189334 A026334 * A372465 A168595 A163455

Adjacent sequences: A247559 A247560 A247561 * A247563 A247564 A247565

Keyword

nonn

Author

Charles R Greathouse IV and Robert G. Wilson v, Sep 20 2014

Status

approved