STATUS
editing
approved
The OEIS is supported by the many generous donors to the OEIS Foundation.
editing
approved
Harvey P. Dale, <a href="/A079827/b079827.txt">Table of n, a(n) for n = 1..1000</a>
approved
editing
editing
approved
Array[Floor[(#+IntegerReverse[#])/2]&, 80] (* Harvey P. Dale, Aug 27 2022 *)
approved
editing
editing
approved
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
reviewed
editing
proposed
reviewed
editing
proposed
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
proposed
editing
editing
proposed