The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A235043 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A235043

Partial sums of the characteristic function of A091209.
(history; published version)

#6 by N. J. A. Sloane at Thu Jan 16 15:04:33 EST 2014

STATUS

proposed

approved

#5 by Antti Karttunen at Thu Jan 16 12:58:24 EST 2014

STATUS

editing

proposed

#4 by Antti Karttunen at Thu Jan 16 12:36:38 EST 2014

LINKS

Antti Karttunen, <a href="/A235043/b235043.txt">Table of n, a(n) for n = 0..10007</a>

STATUS

proposed

editing

#3 by Antti Karttunen at Mon Jan 06 16:33:00 EST 2014

STATUS

editing

proposed

#2 by Antti Karttunen at Thu Jan 02 21:50:46 EST 2014

NAME

allocated for Antti KarttunenPartial sums of the characteristic function of A091209.

DATA

0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 10

OFFSET

0,18

COMMENTS

Note that this also works as an inverse function of A091209 in a sense that a(A091209(n)) = n for all n>=1.

PROG

(Scheme)

(define (A235043 n) (if (zero? n) n (+ (A235043 (- n 1)) (+ (* (A010051 n) (A091247 n))))))

CROSSREFS

Used to compute A235041. Cf. A010051, A091247, A235044.

KEYWORD

allocated

nonn

AUTHOR

Antti Karttunen, Jan 02 2014

STATUS

approved

editing

Discussion

Mon Jan 06

16:33

Antti Karttunen: A simple utility-sequence for computing A235041.

#1 by Antti Karttunen at Thu Jan 02 19:19:46 EST 2014

NAME

allocated for Antti Karttunen

KEYWORD

allocated

STATUS

approved