A393437 - OEIS

%I #10 Mar 10 2026 13:40:32

%S 1,2,8,48,480,3840,46080,737280,10321920,247726080,7431782400,

%T 163499212800,2942985830400,76517631590400,2601599474073600,

%U 93657581066649600,1873151621332992000,52448245397323776000,1993033325098303488000,79721333003932139520000,2551082656125828464640000,107145471557284795514880000,4928691691635100593684480000

%N Partial products of A390314.

%H Michael De Vlieger, <a href="/A393437/b393437.txt">Table of n, a(n) for n = 1..404</a>

%t Block[{c, k, s, p, u, nn}, nn = 24; c[_] := False; k = s = p = 1; c[1] = True; u = 2; Reap[Do[k = u; While[Or[c[k], ! CoprimeQ[s + k, p*k]], k++]; c[k] = True; Sow[p]; s += k; p *= k; If[k == u, While[c[u], u++]], {n, 2, nn}] ][[-1, 1]] ] (* _Michael De Vlieger_, Mar 10 2026 *)

%Y Cf. A390314, A393436.

%K nonn

%O 1,2

%A _N. J. A. Sloane_, Mar 10 2026