OFFSET
1,2
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..1000
MATHEMATICA
b[n_]:=n!!; c[n_]:=n;
t=Table[m=1; While[GCD[b[n]+m, c[n]-m]==1, m++]; m, {n, 1, 200}] (* A214054 *)
Flatten[Position[t, 1]] (* A214585 *)
Flatten[Position[t, 2]] (* A214586 *)
Select[Range[120], GCD[#!!+1, #-1]>1&] (* Harvey P. Dale, Aug 06 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jul 21 2012
STATUS
approved