%I#25 2018年12月6日16:34:52
%S 0,1,4,9,31,66190385102220555112102422457249153114686229377,
%电话:52428710485902359281471859910485753209715214613734292274689,
%电话:2013265904026531918724152241744830466375809638075161927691610612735832212254721
%N a(0)=0,a(1)=1,对于N>1,a(N)=N<*>N,其中k<*>m=k<+>k<+>…<+>k是A206853中定义的运算的m-1倍迭代。
%C A汉明对n^2的模拟。
%F A010060(a(n))=A010060_Vladimir Shevelev_和_Alois P.Heinz_,2012年2月17日
%t f[n_,k_]:=模块[{i=n+1},而[Count[IntegerDigits[BitX或[n,i],2],1]=k、 i++];i] ;加入[{0,1},表[Nest[f[#,k]&,k,k-1],{k,2,18}]](*_Jayanta Basu_,2013年5月26日*)
%Y参见A205509、A205510、A205511、A205302、A20.5649、A20.5533、A122565、A206852、A20685。
%K nonn,基础
%0、3
%A _Vladimir Shevelev_和Konstantin Shukhmin(Shukhmin(AT)callsouth.nz),2012年2月14日
%E a(11)-a(31)摘自_Alois P.Heinz,2012年2月16日
|