A134728 Concatenation of next n perfect numbers.
6, 28496, 8128335503368589869056, 13743869132823058430081399521282658455991569831744654692615953842176191561942608236107294793378084303638130997321548169216
Offset: 1
Links
Programs
-
Mathematica
Module[{nn=5},FromDigits[Flatten[IntegerDigits/@#]]&/@TakeList[ PerfectNumber[ Range[ (nn(nn+1))/2]],Range[nn]]] (* Harvey P. Dale, Apr 04 2022 *)
Comments