A236678 Partial sums of the characteristic function of A079599.

1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 4, 4, 4, 4, 4, 4, 5, 5, 6, 6, 6, 6, 6, 6, 7, 7, 8, 8, 8, 8, 8, 8, 9, 9, 10, 10, 10, 10, 10, 10, 11, 11, 12, 12, 12, 12, 12, 12, 13, 13, 14, 14, 14, 14, 14, 14, 15, 15, 16, 16, 16, 16, 16, 16, 17, 17, 18, 18, 18, 18, 18, 18, 19, 19

Offset

0,3

Comments

This works also as almost an inverse function for A079599, as we have a(A079599(n)) = n+1 for all n.

Links

Antti Karttunen, Table of n, a(n) for n = 0..8192

Formula

a(0) = 1, and for n > 0, a(n) = a(n-1) + A236677(n).

Prog

(Scheme, with _Antti_Karttunen_'s IntSeq-library for memoizing definec-macro)
(definec (A236678 n) (if (zero? n) 1 (+ (A236678 (- n 1)) (A236677 n))))

Crossrefs

Not the same as A173711(n+6). First difference occurs at a(256), when 64 occurs here for the seventh time.

Cf. A236677, A079599.

Sequence in context: A072114 A090621 A173711 * A029378 A053278 A035466

Adjacent sequences: A236675 A236676 A236677 * A236679 A236680 A236681

Keyword

nonn

Author

Antti Karttunen, Jan 29 2014

Status

approved