[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A029145
Expansion of 1/((1-x^2)(1-x^3)(1-x^5)(1-x^8)).
2
1, 0, 1, 1, 1, 2, 2, 2, 4, 3, 5, 5, 6, 7, 8, 9, 11, 11, 14, 14, 17, 18, 20, 22, 25, 26, 30, 31, 35, 37, 41, 43, 48, 50, 55, 58, 63, 66, 72, 75, 82, 85, 92, 96, 103, 108, 115, 120, 129, 133, 143, 148, 157, 164, 173, 180
OFFSET
0,6
COMMENTS
Number of partitions of n into parts 2, 3, 5, and 8. - Joerg Arndt, Jul 07 2013
LINKS
Index entries for linear recurrences with constant coefficients, signature (0,1,1,0,0,0,-1,0,0,0,-1,0,0,0,1,1,0,-1).
FORMULA
a(n) = floor((2*n^3+54*n^2+435*n+2435+45*(n+1)*(-1)^n)/2880+1/4*(((-1)^n+floor((n+1)/4)-floor(n/4))*(-1)^floor(n/4))). - Tani Akinari, Jul 07 2013
PROG
(Haskell)
import Data.MemoCombinators (memo2, integral)
a029145 n = a029145_list !! n
a029145_list = map (p' 0) [0..] where
p' = memo2 integral integral p
p _ 0 = 1
p 4 _ = 0
p k m | m < parts !! k = 0
| otherwise = p' k (m - parts !! k) + p' (k + 1) m
parts = [2, 3, 5, 8]
-- Reinhard Zumkeller, Dec 09 2015
CROSSREFS
Cf. A028290.
Sequence in context: A237598 A138241 A234615 * A238999 A097986 A368689
KEYWORD
nonn,easy
AUTHOR
STATUS
approved