(哈斯克尔)
导入数据。列表(分区)
a228058 n=a228058_列表!!(n-1)
a228058_list=过滤器f[1,3..]哪里
f x=长度us==1&¬(空vs)&&
fst(美国总部)`mod`4==1&&snd(美国总部)`mod`4==1
其中(us,vs)=分区(奇数.snd)$
zip(a027748 U行x)(a124010 U行x)
--莱因哈德·祖姆凯勒2013年8月14日
(平价)
小于等于1000;
ISA28058(n)=如果(!(n%2)| |(ω(n)<2),0,my(f=系数(n),y=0);对于(i=1,#f~,if(1==(f[i,2]%4),if((1==y)|(1!=(f[i,1]%4)),返回(0),y=1),if(f[i,2]%2,return(0)));(y) );
A228058list(up_-to)={my(v=vector(up_-to),k=0,n=0);while(k<up_-to,n++;if(isa28058(n),k++;v[k]=n));(v);};
v228058=A228058列表(最多);
A228058号(n) =v228058[n]\\安蒂·卡尔图宁2019年4月22日
|