cp's OEIS Frontend

A347307 Records in A347113.

%I A347307 #25 Sep 06 2021 15:45:19
%S A347307 1,4,10,22,46,94,118,166,334,358,718,1438,2878,5758,8158,8254,9838,
%T A347307 19678,22558,43198,56638,103198,169438,184798,190558,193918,274558,
%U A347307 315358,318238,357598,419038,439678,486238,698398,858238,1716478,1723198,1965118,2029438,4058878
%N A347307 Records in A347113.
%H A347307 Chai Wah Wu, <a href="/A347307/b347307.txt">Table of n, a(n) for n = 1..54</a>
%o A347307 (Python)
%o A347307 from math import gcd
%o A347307 A347307_list, nset, m, c, j = [1], {1}, 2, 0, 2
%o A347307 for _ in range(10**4):
%o A347307     k = m
%o A347307     while k == j or gcd(k,j) == 1 or k in nset:
%o A347307         k += 1
%o A347307     if k > c:
%o A347307         c = k
%o A347307         A347307_list.append(k)
%o A347307     j = k + 1
%o A347307     nset.add(k)
%o A347307     while m in nset:
%o A347307         m += 1 # _Chai Wah Wu_, Sep 01 2021
%Y A347307 Cf. A347113, A347306, A347308.
%K A347307 nonn
%O A347307 1,2
%A A347307 _N. J. A. Sloane_, Sep 01 2021
%E A347307 a(23)-a(40) from _Alois P. Heinz_, Sep 01 2021