%I#6 2018年7月2日20:25:12
%S 1,2,2,2,2,3,2,2,2,4,2,5,2,6,7,2,2,8,2,9,10,11,2,2,13,2,14,2,15,2,
%电话:2,16,17,18,19,2,20,21,22,2,23,24,25,26,2,27,2,28,29,30,2,31,32,33,
%U 34,35,2,36,2,37,38,2,39,40,2,41,42,43,2,44,2,45,46,47,48,29,2,50,2,51,2,52,53,54,55,56,257,58,59,60,61,62,63,2,64,65,66,2
%N(素数^k)=常数序列的滤波器序列。
%H Antti Karttunen,n的表,n=1..100000的a(n)</a>
%F a(1)=1,对于n>1,如果A010055(n)=1[当n在A246655]中时,a(n)=2,否则a(n。
%o(PARI)
%o up_to=100000;
%o部分数(f,up_to)={my(v=向量(up_to,s=0);对于(i=1,up_to,s+=f(i);v[i]=s);(v);}
%o v065515=部分(n->(ω(n)<=1),up_to);
%o A065515(n)=v065515【n】;
%o A085970(n)=(n-A065515(n));
%o A305976(n)=如果(1==n,n,如果(i素数(n),2,2+A085970(n)));
%Y参考A000961(A246655)、A085970、A305800、A305975、A305979。
%K nonn公司
%O 1,2号机组
%2018年7月2日,安蒂·卡图内
|