|
%I #8 Apr 18 2022 15:36:40
%S 1,23,5711,15223042,5677101135176,231297385490627792,
%T 1002125515751958243630103718,456556046842834910143123101488317977,
%U 216372601531185373384458353174632617517589134
%N Concatenation of next n partition numbers of positive integers.
%H Harvey P. Dale, <a href="/A134801/b134801.txt">Table of n, a(n) for n = 1..37</a>
%t Module[{nn=10},FromDigits[Flatten[IntegerDigits/@#]]&/@TakeList[ PartitionsP[ Range[ (nn(nn+1))/2]],Range[nn]]] (* _Harvey P. Dale_, Apr 18 2022 *)
%Y Cf. A053067, A132926, A133013. Partition numbers: A000041. See A134800 for another version of the concatenation of next n partition numbers.
%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
|
