|
| |
|
|
A129852
|
|
Non-descending wiggly sums: number of sums adding to n in which terms alternately do not decrease and do not increase.
|
|
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; refs; listen; history; internal format)
|
|
|
|
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 * A065954 A067847 A022858
Adjacent sequences: A129849 A129850 A129851 * A129853 A129854 A129855
|
|
|
KEYWORD
| more,nonn
|
|
|
AUTHOR
| Vladeta Jovovic (vladeta(AT)eunet.rs), May 22 2007
|
|
|
EXTENSIONS
| More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Oct 31 2007
|
| |
|
|
