The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #10 May 07 2022 10:03:36
%S 1,21,27,33,39,297,429,478,495,501,2138,3854,4712,6428,8144,9711,
%T 21872,37791,57052,80216,88179,89654,94802,109388,113373,163761,
%U 171166,182318,188955,196904,203768,211490,214149,239343,1805247,1820092,1849821,1983543,2072691
%N Fixed points in A097465.
%C Position of zeros in A351646.
%C Analogous to A352931 regarding A093714.
%t nn = 2^20; c = {1}; j = 1; u = 2; {1}~Join~Reap[Do[k = u; While[Nand[FreeQ[c, k], CoprimeQ[j, k], k != j + 1, k != j - 1], k++]; j = k; AppendTo[c, k]; If[k == i, Sow[k]]; If[k == u, While[MemberQ[c, u], u++]; c = DeleteCases[c, _?(# < u &)]], {i, 2, nn}]][[-1, -1]]
%Y Cf. A093714, A097465, A351646, A352931, A353069.
%K nonn,easy
%O 1,2
%A _Michael De Vlieger_, May 05 2022