0,6

Table of n, a(n) for n=0..72.

a(0) = 0, and for n >= 1, a(n) = A010059(n) + a(n-1). [Partial sums of A010059, after ignoring the first one at zero].

a(n) = n - A115384(n).

a(n) = A159481(n)-1.

(Scheme, two alternative implementations)

;; With memoizing definec-macro:

(definec (A245710 n) (if (zero? n) n (+ (A010059 n) (A245710 (- n 1)))))

(define (A245710 n) (- n (A115384 n)))

One less than A159481.

Cf. A001969, A010059, A115384, A246159, A246162.

Sequence in context: A084767 A137580 A196369 * A137512 A157943 A267098

Adjacent sequences: A245707 A245708 A245709 * A245711 A245712 A245713

nonn

Antti Karttunen, Aug 18 2014

approved