read `ResPerms.txt`:

K:=40:


print(`The first`, K, `terms of the sequence enumerating permutations of length n such that |pi[i+1]-pi[i]| is never 3 are`):
print(``):
lprint([seq(Vrs(1,3,i),i=1..K)]):
print(``):
print(`---------------------------------`):
print(``):
print(`This took`, time(), `seconds. `):

quit: