OFFSET
1,3
PROG
(PARI) a(n)=sum(k=1, n!, if(sum(i=1, n, i%component(numtoperm(n, k), i))-n, 0, 1))
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Benoit Cloitre, Aug 23 2002
EXTENSIONS
a(10) from Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Mar 14 2004
a(11)-a(25) from Robert Gerbicz, Nov 22 2010
STATUS
approved