A118360 Start with 1; repeatedly reverse the digits when the number is written in binary and add 2 to get the next term.
1, 3, 5, 7, 9, 11, 15, 17, 19, 27, 29, 25, 21, 23, 31, 33, 35, 51, 53, 45, 47, 63, 65, 67, 99, 101, 85, 87, 119, 121, 81, 71, 115, 105, 77, 91, 111, 125, 97, 69, 83, 103, 117, 89, 79, 123, 113, 73, 75, 107, 109, 93, 95, 127, 129, 131, 195, 197, 165, 167, 231
Offset: 1
Examples
After 11 = 11_10 = 1011_2 the next term is 1101_2 + 10_2 = 1111_2 = 15_10 = 15.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
- N. J. A. Sloane and others, Sequences of RADD type, OEIS wiki.
Programs
-
Mathematica
NestList[FromDigits[Reverse[IntegerDigits[#,2]],2]+2&,1,70] (* Harvey P. Dale, May 16 2021 *)