A134800
Concatenation of next n partition numbers A000041.
Original entry on oeis.org
1, 12, 357, 11152230, 425677101135, 176231297385490627, 792100212551575195824363010, 37184565560468428349101431231014883, 179772163726015311853733844583531746326175175
Offset: 1
-
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 *)
A134801
Concatenation of next n partition numbers of positive integers.
Original entry on oeis.org
1, 23, 5711, 15223042, 5677101135176, 231297385490627792, 1002125515751958243630103718, 456556046842834910143123101488317977, 216372601531185373384458353174632617517589134
Offset: 1
-
Module[{nn=10},FromDigits[Flatten[IntegerDigits/@#]]&/@TakeList[ PartitionsP[ Range[ (nn(nn+1))/2]],Range[nn]]] (* Harvey P. Dale, Apr 18 2022 *)
A134802
Concatenation of first n partition numbers of positive integers.
Original entry on oeis.org
1, 12, 123, 1235, 12357, 1235711, 123571115, 12357111522, 1235711152230, 123571115223042, 12357111522304256, 1235711152230425677, 1235711152230425677101, 1235711152230425677101135
Offset: 1
-
Module[{nn=20,p},p=PartitionsP[Range[nn]];Table[FromDigits[Flatten[ IntegerDigits/@ Take[p,n]]],{n,nn}]] (* Harvey P. Dale, May 10 2021 *)
Showing 1-3 of 3 results.