OFFSET
1,2
MATHEMATICA
Sort[Table[FromDigits[Reverse[IntegerDigits[n]]], {n, 1, 121, 2}]]
IntegerReverse[Range[1, 121, 2]]//Sort (* The program uses the IntegerReverse function from Mathematica version 10 *) (* Harvey P. Dale, Mar 01 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 21 2005
EXTENSIONS
First Mathematica program fixed by Harvey P. Dale, Mar 01 2016
STATUS
approved