OFFSET
1,2
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..300
MATHEMATICA
t=Table[m = 1; While[GCD[n! - m, n!! - m] != 1, m++]; m, {n, 1, 2000}]
Flatten[Position[t, 2]]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jul 27 2012
STATUS
approved