(PARI)是A003336(n)=表示(k=1,sqrtnint(n\2,4),ispower(n-k^4,4)&&return(1));
是(n)=是A003336(n)&是A00333(2*n);
(PARI)T=thueinit('x^4+1,1);
具有(n)=#thue(T,n)>0&&!发行方(n)
列表(lim)=我的(v=列表(),x4,t);对于(x=1,sqrtnint(lim=1,4),x4=x^4;对于(y=1,最小值(sqrtnint(lim-x4,4),x),t=x4+y^4;如果(has(2*t),listput(v,t));集合(v)\\查尔斯·格里特豪斯四世2017年2月26日