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

Author

Robert G. Wilson v, Dec 02 2014

Keywords

• nonn

Comments

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

Links

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

Crossrefs

Cf. A098550.

Programs

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]