login
Concatenation of first n partition numbers of positive integers.
0

%I #6 May 10 2021 19:29:08

%S 1,12,123,1235,12357,1235711,123571115,12357111522,1235711152230,

%T 123571115223042,12357111522304256,1235711152230425677,

%U 1235711152230425677101,1235711152230425677101135

%N Concatenation of first n partition numbers of positive integers.

%t Module[{nn=20,p},p=PartitionsP[Range[nn]];Table[FromDigits[Flatten[ IntegerDigits/@ Take[p,n]]],{n,nn}]] (* _Harvey P. Dale_, May 10 2021 *)

%Y Cf. A007908, A019518. Partition numbers: A000041. See A132926 for another version of the concatenation of first n partition numbers.

%K easy,nonn,base

%O 1,2

%A _Omar E. Pol_, Nov 12 2007

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