login
A107315
Odd numbers written backwards and sorted.
0
1, 3, 5, 7, 9, 11, 12, 13, 14, 15, 16, 17, 18, 19, 31, 32, 33, 34, 35, 36, 37, 38, 39, 51, 52, 53, 54, 55, 56, 57, 58, 59, 71, 72, 73, 74, 75, 76, 77, 78, 79, 91, 92, 93, 94, 95, 96, 97, 98, 99, 101
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
Sequence in context: A345425 A362022 A162495 * A340855 A230078 A275669
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 21 2005
EXTENSIONS
First Mathematica program fixed by Harvey P. Dale, Mar 01 2016
STATUS
approved