|
|
A122090型
|
| a(1)=1。a(n)=大于a(n-1)的最小整数,与序列的第一(n-1”)项中出现的最大非素数(1或复合)互素。 |
|
+0 1
|
|
|
1、2、3、4、5、7、9、10、11、13、17、19、21、22、23、25、26、27、28、29、31、33、34、35、36、37、41、43、47、49、50、51、52、53、55、56、57、58、59、61、63、64、65、66、67、71、73、79、83、85、86、87、88、89、91、92、93、94、95、96、97、101、103、107、109、113、115、116、117
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
链接
|
|
|
例子
|
大于a(20)=29且与28互素的最小整数(序列前20项中出现的最大非素数)为31。因此a(21)=31。
|
|
MAPLE公司
|
A122090型:=proc(maxn)局部a,nexta,n,lanopr;a:=[1];lanopr:1;对于从2到maxn的n,执行nexta:=op(n-1,a)+1;当gcd(nexta,lanopr)>1时,执行nexta:=nexta+1;od;a:=[op(a),nexta];如果不是isprime(nexta)且nexta>lanopr,则lanopr:=nexta;fi;od;返回(a);结束:最大值:=100:列表:=A122090型(maxn):对于i from 1 to maxn do printf(“%d,”,op(i,list));结束时间:#R.J.马塔尔2006年10月21日
|
|
数学
|
f[l_List]:=块[{k=Last[l]+1,m=Max[Select[l,!PrimeQ[#]&]]},而[GCD[k,m]>1,k++];追加[l,k]];嵌套[f,{1},70](*雷·钱德勒2006年10月19日*)
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|