%I#25 2016年5月4日03:29:18
%S 1,2,3,4,5,6,7,12,8,9,10,14,16,11,24,13,36,15,18,17,48,19,60,20,25,28,
%电话:30,21,40,32,44,64,22,72,23,81,26,80,27100,29120,31144,33168,34,
%U 180,35192,37240,38324,41252,42,49,54,56,84,39336,43
%N a(1)=1。a(n)=还没有出现的最小整数,如果d(a(n。
%这个序列是正整数的置换。
%C派生序列2^d(a(n))*3^d(a(n+1)),其中d(m)=m的除数,只包含不同的项_Paul Tek,2014年3月5日
%H Paul Tek,n的表,n的a(n)=1..2473</a>
%H Paul Tek,此序列的C++程序</a>
%o(PARI)ok(j,va,vs,n)={if(vecsearch(vs,j),return(0));对于(k=1,n-1,if((numdiv(j)==numdiv
%o findnew(va,vs,n)={my(j=1);my(vs=vecsort(va));直到(ok(j,va,v,n),j++);j;}
%o lista(nn)={my(va=[1]);对于(n=2,nn,vs=vecsort(va);newa=findnew(va,vs,n);va=concat(va,newa););va;}\\_Michel Marcus_,2016年5月4日
%Y参考A175501、A175502
%K nonn,看
%O 1,2号机组
%A _罗伊查询,2010年5月31日
%E a(26)-a(64),来自Paul Tek,2014年3月5日
|