|
%I #17 Aug 27 2022 10:36:54
%S 1,2,3,4,5,6,7,8,9,5,11,16,22,27,33,38,44,49,55,11,16,22,27,33,38,44,
%T 49,55,60,16,22,27,33,38,44,49,55,60,66,22,27,33,38,44,49,55,60,66,71,
%U 27,33,38,44,49,55,60,66,71,77,33,38,44,49,55,60,66,71,77,82,38,44,49,55
%N a(n) = floor((n + reverse(n))/2).
%H Harvey P. Dale, <a href="/A079827/b079827.txt">Table of n, a(n) for n = 1..1000</a>
%p R:=proc(n) local nn, nnn: nn:=convert(n,base,10): add(nn[nops(nn)+1-j]*10^(j-1),j=1..nops(nn)) end: a:=n->floor(n/2+R(n)/2): seq(a(n),n=1..85); # R is the Maple program that yields the digit reversal of n. # _Emeric Deutsch_, Aug 06 2005
%t Do[Print[Floor[(n + FromDigits[Reverse[IntegerDigits[n]]]) / 2]], {n, 1, 50}] (* _Ryan Propper_, Jul 20 2005 *)
%t Array[Floor[(#+IntegerReverse[#])/2]&,80] (* _Harvey P. Dale_, Aug 27 2022 *)
%Y Cf. A004086, A061229.
%K base,nonn
%O 1,2
%A _Amarnath Murthy_, Feb 11 2003
%E 36 more terms from _Ryan Propper_, Jul 20 2005
%E More terms from _Emeric Deutsch_, Aug 06 2005
|
