%I#28 2022年9月8日08:46:12

%S 0,5,7,8,12,15,16,18,19,20,21,22,26,29,31,33,35,36,39,40,43,44,46,47，

%电话：50,51,53,54,56,57,59,60,61,64,65,68,69,70,71,72,73,75,76,77,78,79,82，

%U 83,84,85,87,89,92,94,96,97,98,99100101102103104106单位

%N个数N>=0，使得（N+1）^3-N^3=3*N^2+3*N+1不是素数。

%C A111251的补充。

%C包括A047383的所有成员，1除外。-_罗伯特·伊斯雷尔，2015年5月12日

%H Charles R Greathouse IV，n表，n=1..10000的a（n）</a>

%F a（n）~n.-Charles R Greathouse IV_，2015年5月22日

%e5是一个项，因为（5+1）^3-5^3=91=13*7不是素数。

%p删除（t->isprime（（t+1）^3-t^3），[$0..300]）；#_罗伯特·伊斯雷尔，2015年5月12日

%t选择[范围[0，200]！PrimeQ[（#+1）^3-#^3]&]（*Giovanni Resta_，2015年5月8日*）

%o（UBASIC）

%o 10打印0

%o 20，n=1至200

%o 30秒=（n+1）^3-n^3

%o 40如果prmdiv（s）<>s，则打印n

%o 50下一个n

%o（岩浆）[0..120]中的n：n |不是IsPrime（3*n^2+3*n+1）]；//_文森佐·利班迪（Vincenzo Librandi），2015年5月13日

%o（PARI）for（n=0100，if（！isprime（3*n^2+3*n+1），print1（n，“，”））\\_Derek Orr_2015年5月19日

%Y参考A003215、A047383、A111251。

%K nonn，简单

%O 1,2号机组

%A _天使维利拉·穆拉（Angel Velilla Mula），2015年5月8日