%I
%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(n1) 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
