login
A347307
Records in A347113.
7
1, 4, 10, 22, 46, 94, 118, 166, 334, 358, 718, 1438, 2878, 5758, 8158, 8254, 9838, 19678, 22558, 43198, 56638, 103198, 169438, 184798, 190558, 193918, 274558, 315358, 318238, 357598, 419038, 439678, 486238, 698398, 858238, 1716478, 1723198, 1965118, 2029438, 4058878
OFFSET
1,2
LINKS
PROG
(Python)
from math import gcd
A347307_list, nset, m, c, j = [1], {1}, 2, 0, 2
for _ in range(10**4):
k = m
while k == j or gcd(k, j) == 1 or k in nset:
k += 1
if k > c:
c = k
A347307_list.append(k)
j = k + 1
nset.add(k)
while m in nset:
m += 1 # Chai Wah Wu, Sep 01 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Sep 01 2021
EXTENSIONS
a(23)-a(40) from Alois P. Heinz, Sep 01 2021
STATUS
approved