|
%I #11 Oct 31 2019 11:42:28
%S 2,15,70,1155,6006,1616615,1385670,111546435,2156564410,742073813481,
%T 674612557710,2180460221945005,1006366256282310,2327797034085003195,
%U 128184023343614175938,961380175077106319535,6899316550553351234310
%N a(n) = product of the first n primes which are coprime to n.
%e The first 6 primes which are coprime to 6 are 5,7,11,13,17,19. So a(6)=5*7*11*13*17*19 = 1616615.
%t f[n_] := Block[{c = n, k = 0, p, t = 1},While[c > 0,k++;While[p = Prime[k]; GCD[p, n] > 1, k++ ];c--;t *= p;];t];Table[f[n], {n, 17}] (* _Ray Chandler_, Dec 14 2006 *)
%Y Cf. A119993, A125902.
%K nonn
%O 1,1
%A _Leroy Quet_, Dec 13 2006
%E Extended by _Ray Chandler_, Dec 14 2006
|
