登录
A111269号
第n个复合数的最小因子(A002808号(n) ),这在序列的前面没有发生。
2
1, 2, 4, 3, 5, 6, 7, 15, 8, 9, 10, 21, 11, 12, 25, 13, 27, 14, 30, 16, 33, 17, 35, 18, 19, 39, 20, 42, 22, 45, 23, 24, 49, 50, 51, 26, 54, 55, 28, 57, 29, 60, 31, 63, 32, 65, 66, 34, 69, 70, 36, 37, 75, 38, 77, 78, 40, 81, 41, 84, 85, 43, 87, 44, 90, 91, 46, 93, 47, 95, 48, 98, 99
抵消
1,2
评论
自然数的排列。辅助序列:k:a(k)=k。
这个序列是正整数的置换-勒罗伊·奎特2007年2月3日
链接
戴安娜·麦库姆(Diana L.Mecum)和迈克尔·德弗利格(Michael De Vlieger),n=1..10000时的n,a(n)表(戴安娜·麦库姆(Diana L.Mecum)的前1000个术语)
例子
序列中尚未包含的第n个复合数的最小除数。
第7个复合整数是14。14的除数是1,2,7,14。其中,1和2出现在序列的前6项中。所以7是14的最小除数,它在序列的前6项中缺失。因此a(7)=7-勒罗伊·奎特2007年2月3日
第13个复合数是22。它的除数是{1,2,11,22}。1和2已在序列中。序列中尚未出现的22的最小除数是11。所以a(13)=11-戴安娜·麦库姆2009年1月3日
MAPLE公司
N: =200:#等于a(m),其中m是复合材料的数量<=N
组件:={$2..N}减去选择(isprime,{2,seq(2*i+1,i=1..floor((N-1)/2))}):
S: ={}:
对于n,从1到nops(Comps)do
A[n]:=min(理论值:-除数(Comps[n])减去S);
S: =S联合{A[n]}
日期:
seq(A[n],n=1..nops(Comps))#罗伯特·伊斯雷尔,2015年4月21日
数学
f[l_List]:=块[{n=长度[l]+1,c=1,k=n},当[k>0,c++;当[PrimeQ[c],c++];k--;];追加[l,First[Select[Divisors[c],FreeQ[l,#]&]]];嵌套[f,{},10000](*雷·钱德勒2007年2月7日*)
CompositeList=删除[Complement[Range[2741],Prime[Range[400]],1];序列={1,2,4,3};Do[AppendTo[sequence,DeleteCase[Table[If[!MemberQ[sequence],Divisors[CompositeList[[n]][[j]],Diviors[CompositeList[[n]][[j]],],{j,1,Length[Divisors[Composite List[[n]]]}],Null][[1],{n,5,1000}];顺序(*戴安娜·麦库姆2012年7月21日*)
交叉参考
关键词
基础,非n
作者
阿玛纳斯·穆尔西2005年11月11日
扩展
增加了术语a(23)-a(999)-戴安娜·麦库姆,2009年1月3日,2012年7月21日更正
状态
经核准的