OFFSET
1,1
REFERENCES
S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 125.
EXAMPLE
To get a(2) note that 16 = 10000 in base 2, reversing gives 00001, or 1 and so a(2) = 16 + 1 = 17.
MATHEMATICA
a[1] = 16; a[n_] := Block[{b = IntegerDigits[ a[n - 1], 2]}, FromDigits[ b + Reverse[b], 2]]; Table[ a[n], {n, 1, 35}]
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
N. J. A. Sloane, May 19 2002
EXTENSIONS
More terms from Robert G. Wilson v, May 20 2002
STATUS
approved