A108773 Concatenation of n and the sum of the digits of n.

0, 11, 22, 33, 44, 55, 66, 77, 88, 99, 101, 112, 123, 134, 145, 156, 167, 178, 189, 1910, 202, 213, 224, 235, 246, 257, 268, 279, 2810, 2911, 303, 314, 325, 336, 347, 358, 369, 3710, 3811, 3912, 404, 415, 426, 437, 448, 459, 4610, 4711, 4812, 4913, 505, 516, 527

Offset

0,2

Comments

A136614(n) = A007953(a(n)) = A007953(A136613(n)). - Reinhard Zumkeller, Jan 13 2008

Links

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Mathematica

f[n_] := FromDigits[ Join[ IntegerDigits[n], IntegerDigits[Plus @@ IntegerDigits[n]]]]; Table[ f[n], {n, 0, 52}] (* Robert G. Wilson v, Jun 28 2005 *)

Prog

(PARI) a(n) = eval(concat(Str(n), Str(sumdigits(n)))); \\ Michel Marcus, Nov 12 2023

Crossrefs

Cf. A108203, A062028, A064806.

Cf. A007953.

Sequence in context: A178359 A108203 A308104 * A282151 A333614 A109052

Adjacent sequences: A108770 A108771 A108772 * A108774 A108775 A108776

Keyword

base,nonn

Author

N. J. A. Sloane, Jun 26 2005

Extensions

More terms from Robert G. Wilson v, Jun 28 2005

Status

approved