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

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)

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

Example

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

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 *)

Prog

(C) See Links section.

Crossrefs

Cf. A093714, A352588, A352931.

Sequence in context: A077685 A129822 A321998 * A020318 A126134 A020223

Adjacent sequences: A351621 A351622 A351623 * A351625 A351626 A351627

Keyword

nonn

Author

Rémy Sigrist, May 04 2022

Status

approved