A372284 Primes in the order in which they appear in A124652.

2, 3, 5, 11, 7, 31, 13, 19, 17, 37, 29, 41, 47, 59, 23, 97, 53, 829, 71, 149, 101, 167, 79, 151, 43, 103, 157, 113, 139, 109, 137, 197, 353, 89, 277, 293, 269, 229, 73, 61, 571, 83, 191, 691, 251, 179, 127, 257, 193, 173, 239, 163, 331, 613, 617, 311, 67, 523

Offset: 1

Author

Michael De Vlieger, Apr 29 2024

Keywords

• nonn

Comments

Analogous to A111239, a sequence which instead pertains to A109890.

Examples

			Let b(x) = A372009(x).
Table of first terms:
   n  b(n) a(n)
  -------------
   1    2    2
   2    3    3
   3    5    5
   4   11   11
   5   12    7
   6   20   31
   7   24   13
   8   28   19
   9   29   17
  10   33   37
  11   42   29
  12   43   41
  ...
		

Links

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

Crossrefs

Cf. A124652, A372009.

Programs

Mathematica

nn = 300; c[_] := False;
rad[x_] := rad[x] = Times @@ FactorInteger[x][[All, 1]];
f[x_] := Select[Range[x], Divisible[x, rad[#]] &];
Array[Set[{a[#], c[#]}, {#, True}] &, 2]; s = a[1] + a[2];
{2}~Join~Reap[Do[r = f[s]; k = SelectFirst[r, ! c[#] &];
    If[PrimeQ[k], Sow[k]]; c[k] = True;
    s += k, {i, 3, nn}] ][[-1, 1]]