%I #7 Feb 09 2023 21:58:28
%S 0,4,8,12,16,20,24,28,32,36,12,25,38,51,64,77,90,103,116,129,24,38,52,
%T 66,80,94,108,122,136,150,36,51,66,81,96,111,126,141,156,171,48,64,80,
%U 96,112,128,144,160,176,192,60,77,94,111,128,145,162,179,196,213,72,90,108
%N a(n) = n + R(n) + digsum(n) + product of the digits of n.
%C a(1)= 1 + 1 + 1 + 1 = 4 ; a(12) = 12 + 21 + 3 + 2 = 38.
%t a[n_]:=n+IntegerReverse[n]+Total[IntegerDigits[n]]+Times@@IntegerDigits[n]; Array[a,63,0] (* _Stefano Spezia_, Feb 09 2023 *)
%Y Cf. A001477, A004086, A007953, A007954.
%K nonn,base
%O 0,2
%A _Claudio Meller_, Jun 07 2009
%E a(0) = 0 prepended by _Stefano Spezia_, Feb 09 2023