A075330 Second members of pairs in A075329.

3, 11, 15, 19, 25, 31, 38, 44, 50, 57, 61, 67, 71, 79, 83, 89, 95, 101, 104, 109, 117, 122, 127, 134, 139, 145, 151, 157, 159, 167, 173, 179, 185, 191, 194, 201, 210, 213, 221, 225, 229, 235, 241, 248, 254, 260, 263, 271, 275, 281, 287, 293, 297, 305, 310, 319

Offset

1,1

Links

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

Maple

A075330 := proc(nmax) local r, s, n, stst, rtst ; r := [1] : s := [] : n := {1} : while nops(r) < nmax do stst := 1 ; while stst in n or stst-op(-1, r) in n or stst+op(-1, r) in n do stst := stst +1 ; od ; s := [op(s), stst] ; n := n union {stst, stst-op(-1, r), stst+op(-1, r)} ; rtst := 1 ; while rtst in n do rtst := rtst +1 ; od ; r := [op(r), rtst] ; n := n union {rtst} ; od : RETURN(s) ; end: A075330(100) ; # R. J. Mathar, Feb 03 2007

Mathematica

A075330[nmax_] := Module[{r = {1}, s = {}, n = {1}, stst, rtst}, While[Length[r] < nmax, stst = 1; While[MemberQ[n, stst] || MemberQ[n, stst - Last[r]] || MemberQ[n, stst + Last[r]], stst++]; s = Append[s, stst]; n = n ~Union~ {stst, stst - Last[r], stst + Last[r]}; rtst = 1; While[MemberQ[n, rtst], rtst++]; r = Append[r, rtst]; n = n ~Union~ {rtst}]; Return[s]];
A075330[100] (* Jean-François Alcover, Jun 06 2024, after R. J. Mathar *)

Crossrefs

Cf. A075329, A075331, A075332.

Sequence in context: A039275 A044971 A106374 * A131323 A050592 A032466

Adjacent sequences: A075327 A075328 A075329 * A075331 A075332 A075333

Keyword

nonn

Author

Amarnath Murthy, Sep 18 2002

Extensions

More terms from R. J. Mathar, Feb 03 2007

Status

approved