OFFSET
0,3
COMMENTS
A Hamming's analog of n^2.
FORMULA
MATHEMATICA
f[n_, k_]:=Module[{i=n+1}, While[Count[IntegerDigits[BitXor[n, i], 2], 1]!=k, i++]; i]; Join[{0, 1}, Table[Nest[f[#, k]&, k, k-1], {k, 2, 18}]] (* Jayanta Basu, May 26 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Shevelev and Konstantin Shukhmin (shukhmin(AT)callsouth.net.nz), Feb 14 2012
EXTENSIONS
a(11)-a(31) from Alois P. Heinz, Feb 16 2012
STATUS
approved