A134801 Concatenation of next n partition numbers of positive integers.

1, 23, 5711, 15223042, 5677101135176, 231297385490627792, 1002125515751958243630103718, 456556046842834910143123101488317977, 216372601531185373384458353174632617517589134

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..37

Mathematica

Module[{nn=10}, FromDigits[Flatten[IntegerDigits/@#]]&/@TakeList[ PartitionsP[ Range[ (nn(nn+1))/2]], Range[nn]]] (* Harvey P. Dale, Apr 18 2022 *)

Crossrefs

Cf. A053067, A132926, A133013. Partition numbers: A000041. See A134800 for another version of the concatenation of next n partition numbers.

Sequence in context: A233235 A286706 A366585 * A059932 A045735 A233109

Adjacent sequences: A134798 A134799 A134800 * A134802 A134803 A134804

Keyword

easy,nonn,base,less

Author

Omar E. Pol, Nov 12 2007

Extensions

Edited by Charles R Greathouse IV, Apr 28 2010

Status

approved