A075331 Sums of pairs in A075329.

4, 16, 22, 28, 37, 45, 56, 65, 74, 84, 90, 100, 106, 118, 124, 132, 142, 150, 155, 163, 175, 182, 190, 200, 208, 217, 226, 234, 237, 249, 259, 267, 277, 285, 290, 300, 313, 318, 331, 337, 343, 351, 361, 371, 380, 389, 393, 406, 412, 421, 430, 439, 445, 457

Offset

1,1

Links

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

Maple

A075331 := proc(nmax) local r, s, n, stst, rtst, i ; 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 : for i from 1 to nops(s) do s := subsop(i=op(i, r)+op(i, s), s) ; od ; RETURN(s) ; end: A075331(100) ; # R. J. Mathar, Feb 03 2007

Crossrefs

Cf. A075329, A075330, A075332.

Sequence in context: A354712 A067671 A227815 * A237878 A065661 A100275

Adjacent sequences: A075328 A075329 A075330 * A075332 A075333 A075334

Keyword

nonn

Author

Amarnath Murthy, Sep 18 2002

Extensions

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

Status

approved