A393437 Partial products of A390314.

1, 2, 8, 48, 480, 3840, 46080, 737280, 10321920, 247726080, 7431782400, 163499212800, 2942985830400, 76517631590400, 2601599474073600, 93657581066649600, 1873151621332992000, 52448245397323776000, 1993033325098303488000, 79721333003932139520000, 2551082656125828464640000, 107145471557284795514880000, 4928691691635100593684480000

Offset

1,2

Links

Michael De Vlieger, Table of n, a(n) for n = 1..404

Mathematica

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 *)

Crossrefs

Cf. A390314, A393436.

Sequence in context: A006925 A185135 A238805 * A005867 A377469 A280133

Adjacent sequences: A393434 A393435 A393436 * A393438 A393439 A393440

Keyword

nonn

Author

N. J. A. Sloane, Mar 10 2026

Status

approved