编辑
经核准的
s={m=1};Do[n=2;While[MemberQ[s,n]||!PrimeQ[n-m]||!素数Q[n+m],n++];m=n;附录[s,m=n],{100}] ; 秒 (*扎克·塞多夫2022年10月18日*)
基础,非n,改变
提出
乔瓦尼·雷斯塔:我不认为这是一个“基本”序列
s={m=1};Do[n=2;While[MemberQ[s,n]||!PrimeQ[n-m]||!素数Q[n+m],n++];m=n;附加到[s,m=n],{100}](*_ _扎克·塞多夫,2022年10月18日*)
s={m=1};Do[n=2;While[MemberQ[s,n]||!PrimeQ[n-m]||!素数Q[n+m],n++];m=n;附加到[s,m=n],{100}] (*_扎克 塞多夫_, 10月 18 2022 *)
扎克·塞多夫扎克·塞多夫:好吗?
扎克·塞多夫:抱歉,不知道如何签署我的编辑。
米歇尔·马库斯:像这样:(*~~~~*)看https://oeis.org/wiki/Style_Sheet#Mathematica
s={m=1};Do[n=2;While[MemberQ[s,n]||!PrimeQ[n-m]||!素数Q[n+m],n++];m=n;附加到[s,m=n],{100}]
_阿玛纳斯·穆尔西 (阿玛纳斯_阴暗的(自动变速箱)雅虎.通用域名格式), _, 2003年5月26日
OEIS服务器: https://oeis.org/edit/global/2075