A134802 Concatenation of first n partition numbers of positive integers.
1, 12, 123, 1235, 12357, 1235711, 123571115, 12357111522, 1235711152230, 123571115223042, 12357111522304256, 1235711152230425677, 1235711152230425677101, 1235711152230425677101135
Offset: 1
Crossrefs
Programs
-
Mathematica
Module[{nn=20,p},p=PartitionsP[Range[nn]];Table[FromDigits[Flatten[ IntegerDigits/@ Take[p,n]]],{n,nn}]] (* Harvey P. Dale, May 10 2021 *)
Extensions
Edited by Charles R Greathouse IV, Apr 25 2010