|
%I #12 Nov 01 2019 12:36:37
%S 1,3,8,105,144,85085,5760,2027025,3203200,4216455243,43545600,
%T 29248404810625,6706022400,1305433904506875,1707444076642304,
%U 191898783962510625,376610217984000,232876694951587194633125
%N a(n) = product of the first n integers from among those positive integers which are coprime to n.
%e The first 4 positive integers which are coprime to 4 are 1,3,5,7. So a(4) = 1*3*5*7 = 105.
%t f[n_] := Block[{c = n, k = 0, p = 1},While[c > 0,k++;While[GCD[k, n] > 1, k++ ];c--;p *= k;];p];Table[f[n], {n, 20}] (* _Ray Chandler_, Dec 14 2006 *)
%Y Cf. A069213, A077581, A077582.
%K nonn
%O 1,2
%A _Leroy Quet_, Dec 11 2006
%E Extended by _Ray Chandler_, Dec 14 2006
|
