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,2

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Example

a(15)=153126 because 1^1 + 5^5 = 3126.

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 *)

Crossrefs

Sequence in context: A055820 A334597 A114167 * A182689 A251412 A286279

Adjacent sequences: A108299 A108300 A108301 * A108303 A108304 A108305

Keyword

base,easy,nonn

Author

Jason Earls, Jun 29 2005

Status

approved