(PARI)rev(n)=subst(Polrev(数字(n)),'x,10)
issemi(n)=大ω(n)==2
list(lim)=我的(v=list(),r);对于素数(p=2,lim\2,对于素数(q=2,min(lim\p,p),r=rev(p*q);如果(issemi(r)&&r=p*q,listput(v,p*q)));套(v)\\查尔斯R格雷特豪斯四世2015年1月27日
(蟒蛇)
来自sympy import factont
从itertools import islice
def sp(n):f=因子(n);返回和(f中p的f[p]==2
def ok(n):r=int(str(n)[::-1]);返回r!=n和sp(n)和sp(r)
打印([k代表范围(534)内的k,如果ok(k)])#迈克尔·S·布兰尼基2022年7月3日
|