OFFSET
0,4
COMMENTS
a(n) <= A131529(n).
PROG
(PARI) { A346658(n) = my(q, r=0); forperm(n, p, q=vector(n, i, p[i]-if(i>1, p[i-1])); r+=(#vecsort(q, , 8)==n); ); r; }
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Max Alekseyev, Jul 27 2021
EXTENSIONS
a(14)-a(17) from Martin Ehrenstein, Aug 01 2021
STATUS
approved