|
Search: id:A075332
|
|
| |
|
| 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; listen)
|
|
|
OFFSET
|
1,1
|
|
|
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 (mathar(AT)strw.leidenuniv.nl), Feb 03 2007
|
|
CROSSREFS
|
Cf. A075329, A075330, A075331.
Sequence in context: A005795 A076300 A049637 this_sequence A141105 A047395 A036554
Adjacent sequences: A075329 A075330 A075331 this_sequence A075333 A075334 A075335
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Sep 18 2002
|
|
EXTENSIONS
|
More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Feb 03 2007
|
|
|
Search completed in 0.002 seconds
|
