OFFSET
0,3
FORMULA
{n + R(n)}/2 for all n which yield integers.
MAPLE
reversal := proc(n) local i, len, new, temp: new := 0: temp := n: len := floor(log[10](n+.1))+1: for i from 1 to len do new := new+irem(temp, 10)*10^(len-i): temp := floor(temp/10): od: RETURN(new): end: for n from 0 to 500 do if type((n+reversal(n))/2, integer) then printf(`%d, `, (n+reversal(n))/2) fi: od: # James A. Sellers, May 28 2002
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, May 20 2002
EXTENSIONS
More terms from James A. Sellers, May 28 2002
STATUS
approved