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,1

Comments

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

Links

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

Example

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
  ...

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]]

Crossrefs

Cf. A124652, A372009.

Sequence in context: A067663 A112037 A087583 * A233098 A258975 A111214

Adjacent sequences: A372281 A372282 A372283 * A372285 A372286 A372287

Keyword

nonn

Author

Michael De Vlieger, Apr 29 2024

Status

approved