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

Author

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

Keywords

• nonn

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

Crossrefs

Cf. A101402.

Programs

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}]