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