read `ResPerms.txt`:

K1:=30:
K2:=40:

print(`The first`, K1, `terms of the sequence enumerating permutations of length n such that pi[i+6]-pi[i] is never 6 are`):
print(``):
gu:=[seq(Urs(6,6,i),i=1..K1)]:
print(``):
for i from K1+1 to K2 do
gu:=[op(gu),Urs(6,6,i)]:
print(`The first`, i, `terms of the sequence enumerating permutations of length n such that pi[i+6]-pi[i] is never 6 are`):
print(``):
print(gu):
print(``):
od:

print(`---------------------------------`):
print(``):
print(`This took`, time(), `seconds. `):

quit: