OFFSET
1,3
COMMENTS
LINKS
Peter Kagey, Table of n, a(n) for n = 1..9786 (all sequences with maximum <= 6.)
EXAMPLE
Maximum value 1:
[1],
Maximum value 2:
[1,2],
[2],
[2,1],
Maximum value 3:
[1,2,3],
[1,3],
[1,3,2],
[2,1,3],
[2,3],
[2,3,1],
[3],
[3,1],
[3,1,2],
[3,2],
[3,2,1]
MATHEMATICA
Table[Map[ToExpression /@ StringPartition[#, 1, 1] &, Sort[Map[StringJoin, Join @@ Map[Permutations, DeleteCases[Rest@ Subsets[ToString /@ Range@ k], _?(FreeQ[#, ToString@ k] &)]]]]], {k, 4}] // Flatten (* Michael De Vlieger, Oct 15 2020 *)
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Peter Kagey, Oct 14 2020
STATUS
approved