OFFSET
1,1
COMMENTS
The Gauss factorial m_k! is defined to be Product_{1<=j<=m, gcd(j,k)=1} j.
LINKS
J. B. Cosgrave and K. Dilcher, An introduction to Gauss factorials, Amer. Math. Monthly, 118 (2011), 810-828.
J. B. Cosgrave and K. Dilcher, The Gauss-Wilson theorem for quarter-intervals, Acta Mathematica Hungarica, Sept. 2013.
EXAMPLE
m=145 is a term, because 36_145! = 32577412307818387955599294857216 == 1 (mod 145).
MAPLE
Gf:=proc(N, n) local j, k; k:=1;
for j from 1 to N do if gcd(j, n)=1 then k:=j*k; fi; od; k; end;
t1:=[];
for i from 1 to 1000 do
n:=4*i+1; if (Gf(i, n) mod n ) = 1 then t1:=[op(t1), n]; fi;
od:
t1;
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 08 2013
STATUS
approved