A067690 - OEIS

%I #14 Jan 12 2020 19:46:44

%S 7,11,61,19,43,47,67,79,103,127,131,163,179,191,199,227,263,347,367,

%T 383,419,431,443,479,491,503,523,563,571,599,607,619,631,683,691,727,

%U 739,743,787,823,839,863,887,947,991,1019,1051,1087,1091,1123,1151

%N gcd((2n)!+1, n!+1) when not equal to 1.

%H Harvey P. Dale, <a href="/A067690/b067690.txt">Table of n, a(n) for n = 1..1500</a>

%t a[n_] := GCD[(2n)! + 1, n! + 1]; Select[ Table[ a[n], {n, 1, 1000}], # != 1 &] (* _Jean-François Alcover_, Dec 16 2011 *)

%t Table[GCD[(2n)!+1,n!+1],{n,700}]/.(1->Nothing) (* _Harvey P. Dale_, Jan 12 2020 *)

%K nonn,nice

%O 1,1

%A _Benoit Cloitre_, Feb 04 2002