A355441 Numbers k such that the sum of the least prime factors of i=2..k is prime.

2, 3, 4, 8, 12, 15, 16, 20, 24, 40, 43, 52, 55, 60, 63, 68, 72, 79, 87, 95, 96, 108, 111, 120, 123, 136, 140, 148, 151, 160, 184, 211, 215, 216, 227, 232, 235, 239, 252, 255, 256, 260, 264, 280, 283, 288, 299, 307, 323, 324, 327, 332, 360, 363, 371, 372, 375, 379

Offset

1,1

Links

Jean-Marc Rebert, Table of n, a(n) for n = 1..5676

Example

8 is a term since the least prime factors of 2..8 are 2, 3, 2, 5, 2, 7, 2 and their sum 23 is prime.

Mathematica

Position[Accumulate[Join[{0}, Table[FactorInteger[k][[1, 1]], {k, 2, 400}]]], _?PrimeQ] // Flatten (* Amiram Eldar, Jul 02 2022 *)

Prog

(Python)
from sympy import isprime, factorint
from itertools import accumulate, count, islice
def agen(): yield from (k for k, sk in enumerate(accumulate(min(factorint(i)) for i in count(2)), 2) if isprime(sk))
print(list(islice(agen(), 75))) # Michael S. Branicky, Jul 02 2022
(PARI) isok(k) = isprime(sum(i=2, k, factor(i)[1, 1])); \\ Michel Marcus, Jul 04 2022

Crossrefs

Cf. A088821.

Sequence in context: A171164 A361108 A283659 * A344301 A032939 A366201

Adjacent sequences: A355438 A355439 A355440 * A355442 A355443 A355444

Keyword

nonn

Author

Jean-Marc Rebert, Jul 02 2022

Status

approved