OFFSET
1,5
COMMENTS
When the terms are arranged as successively larger batches of 2^n, the terms A(n,k), k = 1 .. 2^n, on row n give the cumulative number of 1's encountered since the beginning of the row n of similarly organized irregular table A265754, up to and including the k-th term on that row:
1;
1, 1;
1, 2, 2, 2;
1, 2, 3, 3, 4, 4, 4, 4;
1, 2, 3, 4, 4, 5, 6, 6, 7, 7, 7, 8, 8, 8, 8, 8;
...
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..8191
MATHEMATICA
lim = 100; b[1] = 1; b[2] = 1; b[n_] := b[n] = b[b[n - 1]] + b[n - b[n - 1]]; s = CoefficientList[Series[1/(2 - 2 x) (2 x - x^2 + Sum[ 2^(k - 1) x^2^k, {k, Floor@ Log2@ lim}]), {x, 0, lim}], x]; {1}~Join~Table[b[n + 1] - s[[n + 1]], {n, 2, lim}] (* Michael De Vlieger, Jan 26 2016, after Robert G. Wilson v at A004001 *)
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Antti Karttunen, Jan 22 2016
STATUS
approved