%I#14 2019年5月31日03:13:48
%S 1,4,333092805255662309892106529193035391779485271649241049,
%电话:15360074924143682925080
%N 10^N以下等于1模4的2个奇数非素数的连续运行次数。
%用标记为1模4或3模4的非素数生成奇数非素数序列。如果2个与1模4同余的非素数发生在与3模4的非素性同余中断之前,则将非素数加到序列中。
%e a(3)=33,因为在10^3以下发生了33次2的非素数运行,每次运行都被3模4的非素性同余中断
%t A091113=选择[4范围[0,10^4]+1!PrimeQ[#]&];
%t A091236=加入[{0},选择[4范围[0,10^4]+3!PrimeQ[#]&]];
%t lst={};Do[If[Length[s=Select[A091113,Between[{A091236[[i]],A091236[[i+1]]]]==2,AppendTo[lst,Last[s]]],{i,Length[091236]-1}];表[计数[lst,x_/;x<10^n],{n,4}](*罗巴特价格,2019年5月30日*)
%Y参考A093183 A093184 A093186 A093187 A093188 A093397 A093398 A093399 A092639。
%K nonn,更多
%O 1,2号机组
%2004年3月30日,A_Enoch Haga
%E a(9)-a(13),摘自_伯特·多贝拉,2018年12月19日
|