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
Keywords
Examples
a(6)=362797056 because the partition number of 6 is 11 and 6^11 = 362797056.
Links
- G. C. Greubel, Table of n, a(n) for n = 0..20
Programs
-
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 *)
-
PARI
for(n=0,20, print1(n^(numbpart(n)), ", ")) \\ G. C. Greubel, Oct 02 2017
Formula
a(n) = n^A000041(n).
Extensions
More terms from Emeric Deutsch, Nov 24 2007