%I#8 2016年7月11日00:31:26
%S 1,4,5,1,6,7,13,5,2,7,1,2,3,5,1,7,1,2,3,52,2,7,12,3,5,5,2,7,
%温度1,2,3,5,2,7,1,2,3,,5,2,7,1,2,3,3,5,1,2,5,5,7,12,3,5,
%U 2,7,1,2,3,5,2,7,1,2,3,5,2,7,1,2,3,5,2,7,2,3,5,2,7
%N a(1)=1,a(2)=4;此后,a(n)=a(n-1)+a(n-2)的无平方部分。
%p平方根:=n->mul(i[1]^irem(i[2],2),i=ifactors(n)[2]):
%pf:=proc(n)全局平方根;选项记忆;
%p如果n=1,则1 elif n=2,然后4其他sqrf(f(n-1)+f(n-2));fi;结束;
%p[序列(f(n),n=1..140)];
%Y与A272636迅速合并。
%Y参考A000045、A007913。
%K nonn公司
%O 1,2号机组
%A _N.J.A.Sloane,2016年5月5日
|