%I#21 2019年12月2日21:16:39
%S 1,1,1,8,9,1,9,14,15,1,9,20,21,1,24,25,26,27,1,27,32,33,34,35,35,38,
%电话:39,25,39,44,45,35,48,49,50,51,49,54,55,56,57,49,57,62,63,64,65,65,68,
%U 69、65、69、74、75、76、77、77、80、81、65、84、85、86、87、77、90、91、92、93、94、95、95、98
%N a(N)=最大非素数非负整数<c(N),它与c(N”)互素,其中c(N)是第N个复合正整数。
%如果A002808(n)-1不是素数,则C a(n)=A002808n)-1_罗伯特·伊斯雷尔,2019年12月2日
%H Robert Israel,n表,a(n)表示n=1..10000(Lior Manor的前255个术语)
%e a(7)=9,因为9是最大的非素数整数<14(第7个复合数)(因为其他非素数数>9和<14{10和12}不是与14互素的)。
%p编号:=300:
%p NP:=删除(isprime,[1..N]):
%p代表i从2到nops(NP)do
%p x:=NP[i];
%从i-1到-1 do的k的p
%p如果igcd(NP[k],x)=1,则A[i-1]:=NP[k';断开fi
%p od公司
%日期:
%p序列(A[i],i=1..nops(NP)-1);#_罗伯特·伊斯雷尔,2019年12月2日
%t lnni[n_]:=Max[Select[Range[n-1],CompositeQ[#]&CoprimQ[#,n]&]];lnni/@Select[Range[200],CompositeQ]/。(-\[无限]->1)(*哈维·P·戴尔,2019年1月19日*)
%Y参考A002808。
%K非n
%O 1,4型
%A _罗伊查询,2006年1月12日
%E来自Loor Manor_的更多条款,2007年11月21日