A347314 - OEIS

%I #17 Nov 24 2021 11:14:12

%S 1,24,66,70,88,156,180,476,480,484,1292,3182,3440,3444,3604,5724,6486,

%T 7470,8466,12426

%N Fixed points of A347113.

%C If it exists, a(21) > 400000. - _Hugo Pfoertner_, Sep 07 2021

%C a(21) > 3*10^6 if it exists. - _Chai Wah Wu_, Nov 24 2021

%o (Python)

%o from math import gcd

%o A347314_list, nset, m, c, j, i = [1], {1}, 2, 0, 2, 1

%o for _ in range(10**4):

%o     i += 1

%o     k = m

%o     while k == j or gcd(k,j) == 1 or k in nset:

%o         k += 1

%o     if i == k:

%o         A347314_list.append(i)

%o     j = k + 1

%o     nset.add(k)

%o     while m in nset:

%o         m += 1 # _Chai Wah Wu_, Sep 07 2021

%Y Cf. A347113.

%K nonn,more

%O 1,2

%A _N. J. A. Sloane_, Sep 07 2021

%E a(20) from _Hugo Pfoertner_, Sep 07 2021