0,5

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

a(n) = n - (1 + A006527(A227177(n)-1)).

Flatten[(Range[(#-2) (#-1)+1]-1&)[Range[7]]] (* Peter J. C. Moses, Jul 11 2013 *)

(Scheme): (define (A227179 n) (- n (+ 1 (A006527 (- (A227177 n) 1)))))

Cf. A002378, A006527, A227177, A227181, A227182.

Sequence in context: A262678 A238794 A135317 * A115218 A023858 A011118

Adjacent sequences: A227176 A227177 A227178 * A227180 A227181 A227182

nonn

Antti Karttunen, Jul 03 2013

approved