OFFSET
0,2
COMMENTS
EXAMPLE
a(4) = 3: (1,0,0), (3), (1,1,1), (1,2,3), (1,1,1,2,2,3).
PROG
(Rexx) /* replace 1 0 0 with 1 0 to get A011784 */
S = ''; A = 1 0 0; do N = 1 to 10; T = words( A );
S = S word( A, T ); B = A; A = ''; do K = 1 to T;
A = A space( copies( K '', word( B, T + 1 - K )));
end K; end N; T = words( A ); say S word( A, T ) T;
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Frank Ellermann, May 13 2001
EXTENSIONS
a(11) from Naohiro Nomoto, May 10 2002
a(12) from Michael Anthony Keyes, Apr 14 2021
a(13) from Michael Anthony Keyes, May 13 2021
STATUS
approved