A133032 a(n) = n^p(n), where p(n) is the partition number of n.

0, 1, 4, 27, 1024, 78125, 362797056, 4747561509943, 73786976294838206464, 42391158275216203514294433201, 1000000000000000000000000000000000000000000

Offset

0,3

Links

G. C. Greubel, Table of n, a(n) for n = 0..20

Formula

a(n) = n^A000041(n).

Example

a(6)=362797056 because the partition number of 6 is 11 and 6^11 = 362797056.

Maple

with(combinat): seq(n^numbpart(n), n=0..11); # Emeric Deutsch, Nov 24 2007

Mathematica

Table[n^(PartitionsP[n]), {n, 0, 20}] (* G. C. Greubel, Oct 02 2017 *)

Prog

(PARI) for(n=0, 20, print1(n^(numbpart(n)), ", ")) \\ G. C. Greubel, Oct 02 2017

Crossrefs

Cf. A132641. Partition numbers: A000041.

Sequence in context: A362838 A068327 A066842 * A271385 A347146 A110763

Adjacent sequences: A133029 A133030 A133031 * A133033 A133034 A133035

Keyword

nonn

Author

Omar E. Pol, Oct 31 2007

Extensions

More terms from Emeric Deutsch, Nov 24 2007

Status

approved