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,3

Links

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

Formula

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

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

Example

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000142, A220660.

Sequence in context: A363968 A058886 A236858 * A369900 A137846 A080915

Adjacent sequences: A220658 A220659 A220660 * A220662 A220663 A220664

Keyword

nonn,tabf

Author

Antti Karttunen, Dec 18 2012

Status

approved