A251544 List of values of A098550(n+2) for those n for which A098550(n) is a prime.

4, 9, 25, 21, 33, 26, 85, 95, 115, 58, 93, 111, 82, 129, 329, 265, 177, 427, 335, 213, 365, 237, 581, 267, 679, 505, 309, 321, 545, 565, 381, 655, 411, 973, 1043, 755, 785, 1141, 835, 519, 895, 1267, 1337, 579, 985, 597, 633, 1115, 1135, 687, 699, 1673, 723, 753

Offset: 1

Author

David Applegate and N. J. A. Sloane, Dec 16 2014

Keywords

• nonn

Comments

For n > 4: third column in A251637. - Reinhard Zumkeller, Dec 16 2014

Links

• N. J. A. Sloane, Table of n, a(n) for n = 1..11246
• David L. Applegate, Hans Havermann, Bob Selcoe, Vladimir Shevelev, N. J. A. Sloane, and Reinhard Zumkeller, The Yellowstone Permutation, arXiv preprint arXiv:1501.01669, 2015 and J. Int. Seq. 18 (2015) 15.6.7.

Crossrefs

Cf. A098550, A251542 (another version). See A251545 for the sorted values.

Cf. A251637.

Programs

Mathematica

max = 600;
f[lst_] := Block[{k = 4}, While[GCD[lst[[-2]], k] == 1 || GCD[lst[[-1]], k] > 1 || MemberQ[lst, k], k++]; Append[lst, k]];
A098550 = Nest[f, {1, 2, 3}, max - 3];
sel = Select[Transpose[{Range[max], A098550}], PrimeQ[#[[2]]]&][[All,1]]+2;
A098550[[sel]] (* Jean-François Alcover, Sep 05 2018, after Robert G. Wilson v in A098550 *)