%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