(PARI)是(n)=numdiv(n)==38&&numdiv
(PARI)有(n)=如果(n%4==2,ispower(n/2,18,&n)&&isprime(n),bitand(n,524287)==262144&&isprime(n>>18)&&n>262144)\\检查n是否与38个除数相等
列表(lim)=我的(v=列表(),t);对于素数(p=2,sqrtnint(lim=1,37),t=p^37;如果(has(t+1),listput(v,t));如果(has(t-1),listput(v,t-1));对于素数(p=3,sqrtnint(lim\3,18),my(p18=p^18);对于素数(q=3,lim\p18,如果(p==q,next);t=p18*q;if(has(t+1),listput(v,t));如果(has(t-1),listput(v,t-1));集合(v)