OFFSET
1,1
COMMENTS
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
Michael De Vlieger, Extended table of n, a(n) for n = 1..23082 (all terms resulting from 2^19 terms of A347113)
EXAMPLE
a(1) = s(6)+1 = 95 -> s(7) = 5,
a(2) = s(7)+1 = 6 -> s(8) = 2,
a(3) = s(10)+1 = 15, -> s(11) = 3,
a(4) = s(18)+1 = 39, -> s(19) = 13, etc.
MATHEMATICA
c[_] = 0; j = m = 2; m = {1}~Join~Reap[Do[If[IntegerQ@ Log2[i], While[c[m] > 0, m++]]; Set[k, m]; While[Or[c[k] > 0, k == j, GCD[j, k] == 1], k++]; Sow[k]; Set[c[k], i]; j = k + 1, {i, 530}]][[-1, -1]]; m[[Position[m, _?PrimeQ][[All, 1]] - 1]] + 1
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael De Vlieger, Nov 16 2021
STATUS
approved