login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A248647 Records in A098550. 2
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 (list; graph; refs; listen; history; text; internal format)
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 A096781

Adjacent sequences:  A248644 A248645 A248646 * A248648 A248649 A248650

KEYWORD

nonn

AUTHOR

Robert G. Wilson v, Dec 02 2014

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 16 20:35 EDT 2019. Contains 328103 sequences. (Running on oeis4.)