A079827 a(n) = floor((n + reverse(n))/2).

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, 49, 55, 60, 16, 22, 27, 33, 38, 44, 49, 55, 60, 66, 22, 27, 33, 38, 44, 49, 55, 60, 66, 71, 27, 33, 38, 44, 49, 55, 60, 66, 71, 77, 33, 38, 44, 49, 55, 60, 66, 71, 77, 82, 38, 44, 49, 55

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Maple

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

Mathematica

Do[Print[Floor[(n + FromDigits[Reverse[IntegerDigits[n]]]) / 2]], {n, 1, 50}] (* Ryan Propper, Jul 20 2005 *)
Array[Floor[(#+IntegerReverse[#])/2]&, 80] (* Harvey P. Dale, Aug 27 2022 *)

Crossrefs

Cf. A004086, A061229.

Sequence in context: A122425 A360073 A074044 * A216196 A028901 A081597

Adjacent sequences: A079824 A079825 A079826 * A079828 A079829 A079830

Keyword

base,nonn

Author

Amarnath Murthy, Feb 11 2003

Extensions

36 more terms from Ryan Propper, Jul 20 2005

More terms from Emeric Deutsch, Aug 06 2005

Status

approved