A108302 Concatenate n and the sum of the digits of n raised to their own power (A045503).
1, 11, 24, 327, 4256, 53125, 646656, 7823543, 816777216, 9387420489, 102, 112, 125, 1328, 14257, 153126, 1646657, 17823544, 1816777217, 19387420490, 205, 215, 228, 2331, 24260, 253129, 2646660, 27823547, 2816777220, 29387420493, 3028, 3128
Offset: 0
Examples
a(15)=153126 because 1^1 + 5^5 = 3126.
Links
- Harvey P. Dale, Table of n, a(n) for n = 0..1000
Programs
-
Mathematica
cnsd[n_]:=Module[{idn=IntegerDigits[n]/.(0->1),c},c=Total[idn^idn];n*10^IntegerLength[c]+c]; Join[{1},cnsd/@Range[40]] (* Harvey P. Dale, Nov 25 2016 *)