login
A079827
a(n) = floor((n + reverse(n))/2).
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
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
Sequence in context: A122425 A360073 A074044 * A216196 A028901 A081597
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