A076132 a(1) = 1; for n > 1, a(n) = Sum{a(n-k)^k | 0<k<n}.

1, 1, 2, 4, 10, 36, 218, 2804, 108074, 20114564, 36066331898, 1729247065742228, 9575643422153401723466, 50068381739089423185661226445092, 5264344550636729304011557445558608029761914394

Offset

1,3

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..20

Example

a(2) = a(1)^1 = 1^1 = 1.
a(3) = a(2)^1 + a(1)^2 = 1^1 + 1^2 = 2.
a(4) = a(3)^1 + a(2)^2 + a(1)^3 = 2^1 + 1^2 + 1^3 = 4.
a(5) = a(4)^1 + a(3)^2 + a(2)^3 + a(1)^4 = 4^1 + 2^2 + 1^3 + 1^4 = 10.

Prog

(Haskell)
a076132 n = a076132_list !! (n-1)
a076132_list = 1 : f [1] where
   f xs = y : f (y : xs) where y = sum $ zipWith (^) xs [1..]
-- Reinhard Zumkeller, Mar 10 2013

Crossrefs

Sequence in context: A210778 A210779 A002577 * A371999 A047142 A081080

Adjacent sequences: A076129 A076130 A076131 * A076133 A076134 A076135

Keyword

nonn

Author

Reinhard Zumkeller, Oct 30 2002

Extensions

Corrected by Don Reble, Nov 20 2006

Status

approved