0,3

Reinhard Zumkeller, Table of n, a(n) for n = 0..1000

(Haskell)

a209039 n = p (max 1 (n `div` 5)) n where

p _ 0 = 1

p k m = if m < k then 0 else p k (m - k) + p (k + 1) m

Cf. A209037, A209038.

Sequence in context: A104502 A027343 A184644 * A182805 A309058 A218509

Adjacent sequences: A209036 A209037 A209038 * A209040 A209041 A209042

nonn

Reinhard Zumkeller, Mar 04 2012

approved