OFFSET
1,2
LINKS
Alois P. Heinz, Rows n = 1..16, flattened
EXAMPLE
1
11
0
13 31 121 211 1111
14 23 32 41 113 122 131 212 221 311 1112 1121 1211 2111 11111
0
16 25 34 43 52 61 115 124 142 151 ...
...
MAPLE
T:= proc(n) uses combinat; `if`(irem(n, 3)=0, 0,
select(h-> igcd(n, h)=1, sort(map(y-> parse(cat(y[])),
map(x-> permute(x)[], partition(n, min(n, 9))))))[])
end:
seq(T(n), n=1..7); # Alois P. Heinz, Dec 05 2025
CROSSREFS
KEYWORD
base,nonn,tabf
AUTHOR
Amarnath Murthy, Apr 13 2003
EXTENSIONS
More terms from David Wasserman, Aug 30 2004
STATUS
approved
