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

Comments

For the partial sums of EKG sequence see A065057.

Links

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

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.

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

Crossrefs

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

Sequence in context: A364403 A360892 A132274 * A091714 A017991 A065614

Adjacent sequences: A253765 A253766 A253767 * A253769 A253770 A253771

Keyword

nonn

Author

Omar E. Pol, Jan 27 2015

Status

approved