login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A266348 a(1) = 1; for n > 1, a(n) = A004001(n+1) - A072376(n). 3
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, 1, 2, 3, 4, 5, 5, 6, 7, 8, 8, 9, 10, 10, 11, 11, 11, 12, 13, 13, 14, 14, 14, 15, 15, 15, 15, 16, 16, 16, 16, 16, 16, 1, 2, 3, 4, 5, 6, 6, 7, 8, 9, 10, 10, 11, 12, 13, 13, 14, 15, 15, 16, 16, 16, 17, 18, 19, 19, 20, 21, 21 (list; graph; refs; listen; history; text; internal format)
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

FORMULA

a(1) = 1; for n > 1, a(n) = A004001(n+1) - A072376(n) = A004001(n+1) - 2^(A000523(n)-1).

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 *)

PROG

(Scheme) (define (A266348 n) (if (= 1 n) 1 (- (A004001 (+ 1 n)) (A072376 n))))

CROSSREFS

Cf. A000523, A004001, A072376, A265754.

Sequence in context: A130790 A261904 A297030 * A179647 A029330 A132225

Adjacent sequences:  A266345 A266346 A266347 * A266349 A266350 A266351

KEYWORD

nonn,tabf

AUTHOR

Antti Karttunen, Jan 22 2016

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 3 13:22 EDT 2022. Contains 357237 sequences. (Running on oeis4.)