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

Author

N. J. A. Sloane, Jun 26 2005

Keywords

• base
• nonn

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

Crossrefs

Cf. A108203, A062028, A064806.

Cf. A007953.

Programs

Mathematica

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

PARI

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

Extensions

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