A253768 Partial sums of A098550.

1, 3, 6, 10, 19, 27, 42, 56, 61, 67, 92, 104, 139, 155, 162, 172, 193, 213, 240, 262, 301, 312, 325, 358, 384, 429, 457, 508, 540, 557, 575, 660, 684, 739, 773, 838, 874, 965, 995, 1044, 1082, 1145, 1164, 1206, 1301, 1345, 1402, 1442, 1511, 1561, 1584, 1632, 1747, 1799, 1874, 1920, 2001, 2057, 2144, 2206

Offset: 1

Author

Omar E. Pol, Jan 27 2015

Keywords

• nonn

Comments

For the partial sums of EKG sequence see A065057.

Links

• 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.

Crossrefs

Cf. A065057, A098550, A250299, A253765, A253766.

Programs

Mathematica

f[lst_] := Block[{k = 4}, While[GCD[lst[[-2]], k] == 1 || GCD[lst[[-1]], k] > 1 || MemberQ[lst, k], k++]; Append[lst, k]];
Nest[f, {1, 2, 3}, 68] // Accumulate (* Jean-François Alcover, Oct 04 2018, after Robert G. Wilson v *)