login
Concatenation of next n partition numbers A000041.
2

%I #8 Jul 25 2019 19:57:27

%S 1,12,357,11152230,425677101135,176231297385490627,

%T 792100212551575195824363010,37184565560468428349101431231014883,

%U 179772163726015311853733844583531746326175175

%N Concatenation of next n partition numbers A000041.

%H Harvey P. Dale, <a href="/A134800/b134800.txt">Table of n, a(n) for n = 1..37</a>

%t FromDigits[Flatten[IntegerDigits/@#]]&/@With[{nn=10},TakeList[ PartitionsP[ Range[0,(nn(nn+1))/2]],Range[nn]]] (* Requires Mathematica version 11 or later *) (* _Harvey P. Dale_, Jul 25 2019 *)

%Y Cf. A000041, A053067, A132926, A133013. See A134801 for another version.

%K easy,nonn,base,less

%O 1,2

%A _Omar E. Pol_, Nov 12 2007

%E Edited by _Charles R Greathouse IV_, Apr 28 2010