|
|
A206960
|
|
a(0)=0, a(1)=1, for n>1, a(n) = n<*>n, where k<*>m = k<+>k<+>...<+>k is the m-1-fold iteration of the operation <+> defined in A206853.
|
|
9
|
|
|
0, 1, 4, 9, 31, 66, 190, 385, 1022, 2055, 5112, 10242, 24572, 49153, 114686, 229377, 524287, 1048590, 2359281, 4718599, 10485753, 20971521, 46137342, 92274689, 201326590, 402653191, 872415224, 1744830466, 3758096380, 7516192769, 16106127358, 32212254721
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
A Hamming's analog of n^2.
|
|
LINKS
|
Table of n, a(n) for n=0..31.
|
|
FORMULA
|
A010060(a(n)) = A010060(n). - Vladimir Shevelev and Alois P. Heinz, Feb 17 2012
|
|
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
|
Cf. A205509, A205510, A205511, A205302, A205649, A205533, A122565, A206852, A206853.
Sequence in context: A069103 A041137 A042599 * A145543 A141043 A111160
Adjacent sequences: A206957 A206958 A206959 * A206961 A206962 A206963
|
|
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
|
|
|
|