Search: id:A134737
Results 1-1 of 1 results found.

%I A134737
%S A134737 1,2,3,6,13,44,131,638,3060,22367,167672,2127747,26391031,537973241,
%T A134737 12274276512,429819314124,16928838590640,1068323095351171,
%U A134737 75345432929798690,8339062208354516217,1083103359596125913021
%N A134737 Number of partitions of the n-th partition number into positive parts 
               not greater than n.
%H A134737 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               Partition.html">Partition</a>
%H A134737 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               PartitionFunctionP.html">Partition Function P</a>
%H A134737 <a href="Sindx_Par.html#partN">Index entries for sequences related to 
               partitions</a>
%F A134737 a(n) = A026820(A026820(n,n),n) = A026820(A000041(n),n).
%p A134737 with (numtheory): P:= proc(n) local d, j; P(n):= `if`(n=0, 1, add (add 
               (d, d=divisors(j)) *P(n-j), j=1..n)/n) end: b:= proc(n,i) if n<0 
               then 0 elif n=0 then 1 elif i=0 then 0 else b(n,i):= b(n, i-1) +b(n-i, 
               i) fi end: a:= n-> b(P(n),n): seq (a(n), n=1..25); [From Alois P. 
               Heinz (heinz(AT)hs-heilbronn.de), Jul 17 2009]
%t A134737 (* first do *) Needs["DiscreteMath`IntegerPartitions`"] (* then *) a[n_] 
               := Length@ IntegerPartitions[ PartitionsP[n], n] (* Robert G. Wilson 
               v (rgwv(AT)rgwv.com), Nov 11 2007 *)
%Y A134737 Sequence in context: A137273 A135967 A146000 this_sequence A030733 A122839 
               A121556
%Y A134737 Adjacent sequences: A134734 A134735 A134736 this_sequence A134738 A134739 
               A134740
%K A134737 nonn
%O A134737 1,2
%A A134737 Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Nov 07 2007
%E A134737 More terms from Alois P. Heinz (heinz(AT)hs-heilbronn.de), Jul 17 2009

Search completed in 0.001 seconds