%I #14 Apr 20 2013 16:18:17
%S 1,1,2,1,2,3,4,5,6,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
%T 21,22,23,24,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,
%U 23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39
%N Irregular table, where the n-th row consists of numbers 1..n!
%H A. Karttunen, <a href="/A220661/b220661.txt">The rows 1..7 of the irregular table, flattened.</a>
%F a(n) = n - A007489(A084556(n)-1).
%F a(n) = A220660(n)+1.
%e Rows of this irregular table begin as:
%e 1;
%e 1, 2;
%e 1, 2, 3, 4, 5, 6;
%t Flatten[Range[#]&/@(Range[5]!)] (* _Harvey P. Dale_, Apr 20 2013 *)
%o (Scheme): (define (A220661 n) (- n (A007489 (-1+ (A084556 n)))))
%Y Cf. A000142, A220660.
%K nonn,tabf
%O 1,3
%A _Antti Karttunen_, Dec 18 2012
|