A220661 Irregular table, where the n-th row consists of numbers 1..n!

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, 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, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39

Offset: 1

Author

Antti Karttunen, Dec 18 2012

Keywords

• nonn
• tabf

Examples

			Rows of this irregular table begin as:
1;
1, 2;
1, 2, 3, 4, 5, 6;
		

Links

• Antti Karttunen, The rows 1..7 of the irregular table, flattened.

Crossrefs

Cf. A000142, A220660.

Programs

Mathematica

Flatten[Range[#]&/@(Range[5]!)] (* Harvey P. Dale, Apr 20 2013 *)

Scheme

(define (A220661 n) (- n (A007489 (-1+ (A084556 n)))))

Formula

a(n) = n - A007489(A084556(n)-1).

a(n) = A220660(n)+1.