A068114 Integers of the form phi(n!)/phi(n)!.

1, 4, 96, 384, 34560, 4147200, 23224320, 6220800, 99532800, 1605264998400, 10319560704000, 52973744947200, 2517312359890944000, 137731736862720000, 104125193068216320000, 1039086126666344300544000000

Offset

1,2

Links

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

Mathematica

Select[Table[EulerPhi[n!]/EulerPhi[n]!, {n, 50}], IntegerQ] //DeleteDuplicates (* Harvey P. Dale, Sep 09 2017 *)

Crossrefs

Sequence in context: A210926 A302121 A188895 * A272109 A203316 A359653

Adjacent sequences: A068111 A068112 A068113 * A068115 A068116 A068117

Keyword

easy,nonn

Author

Benoit Cloitre, Mar 17 2002

Status

approved