A351624 Fixed points of A093714.

1, 91, 93, 117, 147, 164, 172, 189, 224, 231, 254, 273, 284, 327, 344, 357, 374, 382, 399, 411, 434, 464, 483, 494, 543, 561, 567, 584, 592, 609, 644, 674, 693, 704, 747, 777, 794, 819, 854, 884, 891, 903, 914, 932, 939, 957, 987, 1001, 1012, 1029, 1064, 1094

Offset: 1

Author

Rémy Sigrist, May 04 2022

Keywords

• nonn

Comments

From Michael De Vlieger, May 04 2022: (Start)

Also positions of 0's in A352931.

Fixed points of A352588 are these terms together with 2 and 8. (End)

Examples

			A093714(91) = 91 so 91 belongs to this sequence.
A093714(92) = 88 so neither 88 nor 92 belongs to this sequence.
		

Links

• Rémy Sigrist, Table of n, a(n) for n = 1..10000
• Rémy Sigrist, Logarithmic scatterplot of the first differences of the first 400000 terms
• Rémy Sigrist, C program

Crossrefs

Cf. A093714, A352588, A352931.

Programs

C

See Links section.

Mathematica

{1}~Join~Reap[Do[k = u; While[Nand[FreeQ[c, k], CoprimeQ[j, k], 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]] (* _Michael De Vlieger, May 04 2022 *)