This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A075332 Differences of pairs in A075329. 4
 2, 6, 8, 10, 13, 17, 20, 23, 26, 30, 32, 34, 36, 40, 42, 46, 48, 52, 53, 55, 59, 62, 64, 68, 70, 73, 76, 80, 81, 85, 87, 91, 93, 97, 98, 102, 107, 108, 111, 113, 115, 119, 121, 125, 128, 131, 133, 136, 138, 141, 144, 147, 149, 153, 156, 161, 162, 165, 168, 170, 174 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS MAPLE A075332 := 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, s)-op(i, r), s) ; od ; RETURN(s) ; end: A075332(100) ; # R. J. Mathar, Feb 03 2007 CROSSREFS Cf. A075329, A075330, A075331. Sequence in context: A284753 A258663 A166447 * A141105 A047395 A284794 Adjacent sequences:  A075329 A075330 A075331 * A075333 A075334 A075335 KEYWORD nonn AUTHOR Amarnath Murthy, Sep 18 2002 EXTENSIONS More terms from R. J. Mathar, Feb 03 2007 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.

Last modified September 16 06:21 EDT 2019. Contains 327090 sequences. (Running on oeis4.)