

A073090


Number of permutations p from (1,2,3,...,n) to (1,2,3...,n) such that 1/p(1)+2/p(2)+...+n/p(n) is an integer.


0



1, 1, 1, 2, 2, 8, 8, 22, 104, 1128, 1128, 14520, 14520, 229734, 3217088
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,4


LINKS

Table of n, a(n) for n=1..15.


EXAMPLE

p(1,2)=(1,2) is the only permutation such that 1/p(1)+2/p(2) is an integer hence a(2)=1


PROG

(PARI) a(n)=if(n<0, 0, sum(k=1, n!, if(frac(sum(i=1, n, i/component(numtoperm(n, k), i))), 0, 1)))


CROSSREFS

Sequence in context: A082887 A137583 A099328 * A120544 A155950 A162959
Adjacent sequences: A073087 A073088 A073089 * A073091 A073092 A073093


KEYWORD

more,nonn


AUTHOR

Benoit Cloitre, Aug 18 2002


EXTENSIONS

More terms from John W. Layman, Feb 06 2004
Corrected by Benoit Cloitre, Feb 21 2004
a(14)a(15) from Matthijs Coster, Mar 22 2017


STATUS

approved



