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,2

Comments

Position of zeros in A351646.

Analogous to A352931 regarding A093714.

Links

Table of n, a(n) for n=1..39.

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

Crossrefs

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

Sequence in context: A264102 A364414 A365081 * A103246 A206347 A362008

Adjacent sequences: A352093 A352094 A352095 * A352097 A352098 A352099

Keyword

nonn,easy

Author

Michael De Vlieger, May 05 2022

Status

approved