(其他)UBASIC公司以下为：)10’sq的pr是素数20 N=1:O=1:C=1 30 A=3:S=sqrt（N）40 B=N\A 50，如果B*A=N，那么120 60 A=A+2 70，如果A<=S，那么40 80 R=O^2:Q=R-N 90，如果N<R且N=prmdiv（N）且Q=prmdov（Q），那么打印R；N；Q： N=N+2：C=C+1：如果C>31，则转到30 100，然后停止120 N=N+2：如果N<R，则30：否则O=O+1：转到80

OEIS服务器: https://oeis.org/edit/global/2529

_伊诺克·哈加(叶诺赫(自动变速箱)康卡斯特.网)，_,2008年10月30日

OEIS服务器: https://oeis.org/edit/global/789

产生素数差的最近平方的素数减法

2, 2, 5, 3, 2, 7, 5, 2, 11, 5, 3, 2, 17, 11, 3, 17, 13, 7, 5, 2, 23, 17, 5, 3, 2, 29, 23, 17, 5, 31, 17, 13, 11, 7, 2, 17, 11, 3, 2, 41, 23, 17, 5, 29, 19, 13, 7, 5, 29, 23, 17, 3, 2, 41, 23, 11, 2, 47, 43, 41, 37, 23, 19, 17, 13, 53, 47, 41, 11, 5, 3, 2, 59, 53, 47, 5, 3, 2, 67, 59, 47, 37

1,1

中的术语A146315号+A146316铝合金制作正方形

a（6）=7，因为当素数29从平方36中减去时，结果是另一个素数7

（其他）UBASIC：10’sq less pr are prime 20 N=1:O=1:C=1 30 A=3:S=sqrt（N）40 B=N\A 50 if B*A=N then 120 60 A=A+2 70 if A<=S then 40 80 R=O^2:Q=R-N 90 if N<R and N=prmdiv（N）and Q=prmdov（Q）then print R；N；Q： N=N+2：C=C+1：如果C>31，则转到30 100，然后停止120 N=N+2：如果N<R，则30：否则O=O+1：转到80

146315英镑 A146317号 A146318号

容易的,非n

Enoch Haga（Enokh（AT）comcast.net），2008年10月30日

经核准的