|
Search: id:A129852
|
|
|
| A129852 |
|
Non-descending wiggly sums: number of sums adding to n in which terms alternately do not decrease and do not increase. |
|
+0
1
|
|
| 1, 2, 3, 5, 9, 15, 26, 45, 79, 135, 236, 408, 710, 1230, 2137, 3705, 6436, 11165, 19384, 33637, 58391, 101336, 175896, 305284, 529884, 919683, 1596277, 2770576, 4808811
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MAPLE
|
A129852rec := proc(part, n) local asum, a, k ; asum := add(i, i=part) ; if asum > n then RETURN(0) ; elif asum = n then RETURN(1) ; else a := 0 ; if nops(part) mod 2 = 1 then for k from op(-1, part) to n-asum do a := a+A129852rec([op(part), k], n) ; od: else for k from 1 to min(op(-1, part), n-asum) do a := a+A129852rec([op(part), k], n) ; od: fi ; RETURN(a) ; fi ; end: A129852 := proc(n) local a, a1 ; a := 0 ; for a1 from 1 to n do a := a+A129852rec([a1], n) ; od: RETURN(a) ; end: seq(A129852(n), n=1..20) ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Oct 31 2007
|
|
CROSSREFS
|
Cf. A025048, A025049.
Sequence in context: A018157 A003065 A005169 this_sequence A065954 A067847 A022858
Adjacent sequences: A129849 A129850 A129851 this_sequence A129853 A129854 A129855
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Vladeta Jovovic (vladeta(AT)Eunet.yu), May 22 2007
|
|
EXTENSIONS
|
More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Oct 31 2007
|
|
|
Search completed in 0.002 seconds
|
