%I #13 Nov 12 2023 11:34:19
%S 0,11,22,33,44,55,66,77,88,99,101,112,123,134,145,156,167,178,189,
%T 1910,202,213,224,235,246,257,268,279,2810,2911,303,314,325,336,347,
%U 358,369,3710,3811,3912,404,415,426,437,448,459,4610,4711,4812,4913,505,516,527
%N Concatenation of n and the sum of the digits of n.
%C A136614(n) = A007953(a(n)) = A007953(A136613(n)). - _Reinhard Zumkeller_, Jan 13 2008
%H Reinhard Zumkeller, <a href="/A108773/b108773.txt">Table of n, a(n) for n = 0..10000</a>
%t f[n_] := FromDigits[ Join[ IntegerDigits[n], IntegerDigits[Plus @@ IntegerDigits[n]]]]; Table[ f[n], {n, 0, 52}] (* _Robert G. Wilson v_, Jun 28 2005 *)
%o (PARI) a(n) = eval(concat(Str(n), Str(sumdigits(n)))); \\ _Michel Marcus_, Nov 12 2023
%Y Cf. A108203, A062028, A064806.
%Y Cf. A007953.
%K base,nonn
%O 0,2
%A _N. J. A. Sloane_, Jun 26 2005
%E More terms from _Robert G. Wilson v_, Jun 28 2005
|