login
A372284
Primes in the order in which they appear in A124652.
2
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
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
Sequence in context: A067663 A112037 A087583 * A233098 A258975 A111214
KEYWORD
nonn
AUTHOR
Michael De Vlieger, Apr 29 2024
STATUS
approved