A352096 Fixed points in A097465.

1, 21, 27, 33, 39, 297, 429, 478, 495, 501, 2138, 3854, 4712, 6428, 8144, 9711, 21872, 37791, 57052, 80216, 88179, 89654, 94802, 109388, 113373, 163761, 171166, 182318, 188955, 196904, 203768, 211490, 214149, 239343, 1805247, 1820092, 1849821, 1983543, 2072691

Offset: 1

Author

Michael De Vlieger, May 05 2022

Keywords

• nonn
• easy

Comments

Position of zeros in A351646.

Analogous to A352931 regarding A093714.

Crossrefs

Cf. A093714, A097465, A351646, A352931, A353069.

Programs

Mathematica

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]]