|
%I #15 Jul 11 2013 19:39:15
%S 0,0,0,1,2,0,1,2,3,4,5,6,0,1,2,3,4,5,6,7,8,9,10,11,12,0,1,2,3,4,5,6,7,
%T 8,9,10,11,12,13,14,15,16,17,18,19,20,0,1,2,3,4,5,6,7,8,9,10,11,12,13,
%U 14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30
%N After initial 0, integers from 0 to n(n-1) followed by integers from 0 to n(n+1) and so on.
%H Antti Karttunen, <a href="/A227179/b227179.txt">Table of n, a(n) for n = 0..9951</a>
%F a(n) = n - (1 + A006527(A227177(n)-1)).
%t Flatten[(Range[(#-2) (#-1)+1]-1&)[Range[7]]] (* _Peter J. C. Moses_, Jul 11 2013 *)
%o (Scheme): (define (A227179 n) (- n (+ 1 (A006527 (- (A227177 n) 1)))))
%Y Cf. A002378, A006527, A227177, A227181, A227182.
%K nonn
%O 0,5
%A _Antti Karttunen_, Jul 03 2013
|
