A393436 Partial sums of A390314.

1, 3, 7, 13, 23, 31, 43, 59, 73, 97, 127, 149, 167, 193, 227, 263, 283, 311, 349, 389, 421, 463, 509, 557, 601, 653, 709, 769, 823, 881, 947, 997, 1061, 1123, 1193, 1277, 1367, 1439, 1517, 1597, 1693, 1787, 1861, 1949, 2017, 2099, 2203, 2279, 2371, 2473, 2579, 2677, 2777, 2887, 2999, 3119, 3251, 3359, 3481, 3607, 3761, 3847, 3989, 4127

Offset

1,2

Links

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

Mathematica

Block[{c, k, s, p, u, nn}, nn = 65; 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[s]; 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.

Similar to, but different from, A291544, A291546.

Sequence in context: A091652 A372209 A334163 * A291546 A134197 A053001

Adjacent sequences: A393433 A393434 A393435 * A393437 A393438 A393439

Keyword

nonn

Author

N. J. A. Sloane, Mar 10 2026

Status

approved