cp's OEIS Frontend

A348780 Partial sums of A347113.

%I A348780 #10 Nov 14 2021 00:44:14
%S A348780 1,5,15,37,83,177,182,184,190,204,207,215,227,253,262,277,295,333,346,
%T A348780 353,369,403,423,447,477,539,560,571,598,630,666,740,765,793,851,969,
%U A348780 986,1019,1059,1141,1307,1641,1676,1715,1757,1843,1872,1916,1964,2020,2039,2084,2107,2157,2211,2271,2393
%N A348780 Partial sums of A347113.
%C A348780 Needs an estimate for the asymptotic growth rate.
%H A348780 Stefano Spezia, <a href="/A348780/b348780.txt">Table of n, a(n) for n = 1..10000</a>
%o A348780 (Python)
%o A348780 from math import gcd
%o A348780 def A348780(n):
%o A348780     j, nset, m, s = 2, {1}, 2, 1
%o A348780     for _ in range(n-1):
%o A348780         k = m
%o A348780         while k == j or gcd(k,j) == 1 or k in nset:
%o A348780             k += 1
%o A348780         j = k+1
%o A348780         s += k
%o A348780         nset.add(k)
%o A348780         while m in nset:
%o A348780             m += 1
%o A348780     return s # _Chai Wah Wu_, Nov 13 2021
%Y A348780 Cf. A347113.
%K A348780 nonn
%O A348780 1,2
%A A348780 _N. J. A. Sloane_, Nov 13 2021