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