OFFSET
0,4
COMMENTS
Description format taken from Leroy Quet's OR and AND gate sequences for consistency.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..16383
MATHEMATICA
Table[f = IntegerDigits[x, 2]; f = f + Reverse[f]; FromDigits[ Table[If[EvenQ[f[[r]]], 1, 0], {r, 1, Length[f]}], 2], {x, STARTPOINT, ENDPOINT}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Dylan Hamilton, Oct 15 2010
STATUS
approved