1,3

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

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

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

Rows of this irregular table begin as:

1;

1, 2;

1, 2, 3, 4, 5, 6;

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

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

Cf. A000142, A220660.

Sequence in context: A309932 A058886 A236858 * A137846 A080915 A239484

Adjacent sequences: A220658 A220659 A220660 * A220662 A220663 A220664

nonn,tabf

Antti Karttunen, Dec 18 2012

approved