A248647 Records in A098550.

1, 2, 3, 4, 9, 15, 25, 35, 39, 45, 51, 85, 91, 95, 115, 119, 133, 161, 175, 329, 427, 581, 679, 973, 1043, 1141, 1267, 1337, 1673, 1897, 1981, 3443, 3493, 3563, 5753, 6941, 9229, 10417, 11561, 14963, 15037, 16181, 17369, 19657, 23089, 24277, 30043, 31207, 33253, 34793, 35849, 36949, 45071

Offset

1,2

Comments

See the "Graph of first 300000 terms" in A098550.

Links

Robert G. Wilson v, Table of n, a(n) for n = 1..121

Mathematica

f[lst_List] := Block[{k = 4}, While[ GCD[ lst[[-2]], k] == 1 || GCD[ lst[[-1]], k] > 1 || MemberQ[lst, k], k++]; Append[lst, k]]; records[s_List] := Block[{k = 1, lmt = 1 + Length@ s, lst = {}, mx = 0}, While[k < lmt, If[ s[[k]] > mx, mx = s[[k]]; AppendTo[lst, mx]]; k++]; lst]; s = Nest[f, {1, 2, 3}, 1000]; records[s]

Crossrefs

Cf. A098550.

Sequence in context: A121431 A084080 A124753 * A284437 A049909 A346211

Adjacent sequences: A248644 A248645 A248646 * A248648 A248649 A248650

Keyword

nonn

Author

Robert G. Wilson v, Dec 02 2014

Status

approved