%I #13 Jan 09 2021 15:32:25
%S 0,2,4,6,8,10,12,14,16,18,2,13,24,35,46,57,68,79,90,101,4,15,26,37,48,
%T 59,70,81,92,103,6,17,28,39,50,61,72,83,94,105,8,19,30,41,52,63,74,85,
%U 96,107,10,21,32,43,54,65,76,87,98,109,12,23,34,45,56,67,78,89
%N a(n) = R(n) + digsum(n).
%F a(n) = A004086(n) + A007953(n).
%p a:= n-> (l-> add(i, i=l)+parse(cat(l[])))(convert(n, base, 10)):
%p seq(a(n), n=0..100); # _Alois P. Heinz_, Jan 09 2021
%t a[n_] := IntegerReverse[n] + Plus @@ IntegerDigits[n]; Array[a, 100, 0] (* _Amiram Eldar_, Jan 09 2021 *)
%o (PARI) a(n) = my(d=digits(n)); fromdigits(Vecrev(d)) + vecsum(d);
%o (Python)
%o def A340479(n):
%o s = str(n)
%o return int(s[::-1]) + sum(int(d) for d in s) # _Chai Wah Wu_, Jan 09 2021
%Y Cf. A004086, A007953.
%K nonn,base
%O 0,2
%A _Michel Marcus_, Jan 09 2021