1，1
迈克尔·德弗利格，n=1..10000的n，a（n）表
CompositeNext[n_u]：=模块[{k=n+1}，而[PrimeQ[k]，k++]；lst={}；Do[p=n+CompositeNext[n]；If[PrimeQ[p]，AppendTo[lst，n]]，{n，2，6！}]；第一次(*弗拉基米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基2009年6月15日*）
位置[#，2]&@表格[k=1；而[！PrimeQ[kn+1]，k++]；k，{n，180}]//展平(*迈克尔·德维列格2017年3月2日*）
囊性纤维变性。A034693号,A034694号.
上下文顺序：A325425型 A286048号 A026223号*邮编：A190280 邮编：A261786 邮编：A124401
相邻序列：A034781号 A034782号 A034783号*A034785号 A034786号 A034787号
不
拉博斯埃勒默
编辑N、 斯隆2012年10月27日
经核准的
