|
（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日
| 