A134801 Concatenation of next n partition numbers of positive integers.
1, 23, 5711, 15223042, 5677101135176, 231297385490627792, 1002125515751958243630103718, 456556046842834910143123101488317977, 216372601531185373384458353174632617517589134
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..37
Crossrefs
Programs
-
Mathematica
Module[{nn=10},FromDigits[Flatten[IntegerDigits/@#]]&/@TakeList[ PartitionsP[ Range[ (nn(nn+1))/2]],Range[nn]]] (* Harvey P. Dale, Apr 18 2022 *)
Extensions
Edited by Charles R Greathouse IV, Apr 28 2010