登录
A109734号
A109732号,数字2n+1出现在位置a(n)。
5
1, 2, 5, 3, 30, 6, 28, 4, 38, 26, 11, 7, 36, 29, 14, 8, 201, 39, 34, 27, 180, 12, 175, 9, 199, 37, 46, 31, 25, 15, 178, 10, 242, 202, 49, 40, 197, 35, 54, 32, 192, 158, 23, 13, 208, 176, 57, 16, 240, 200, 61, 41, 83, 47, 195, 33, 121, 42, 67, 17, 190, 179, 70, 18, 689, 243
抵消
0,2
链接
N.J.A.Sloane和Alois P.Heinz,n=0..20000时的n,a(n)表(前1024个术语来自N.J.A.Sloane)
例子
9出现在位置30 inA109732号,因此a(4)=30。
MAPLE公司
带(线性代数);
命中:=阵列(1..200000);a: =[1,3,7];
命中[1]:=1;命中[3]:=2;命中[7]:=3;S: ={15};五十: =7;
n从4到20000 do
如果(L mod 3=0)并点击[L/3]=0,则
五十: =L/3;a: =[op(a),L];命中[L]:=n;S: =S减去{L};
如果命中[2*L+1]=0,则S:=S并集{2*L+1};fi;
否则L:=最小值(S);a: =[op(a),L];命中[L]:=n;S: =S减去{L};
如果命中[2*L+1]=0,则S:=S并集{2*L+1};fi;
fi;
日期:
#a;
w: =[];
我从0到50000做
如果命中[2*i+1]=0,则中断;fi;
w: =[op(w),命中[2*i+1]];日期:
w#N.J.A.斯隆,2015年8月25日
数学
(*使用中生成的MA109732号*)ms=排序[M];k=1;而[ms[[k]]==2k-1,k++];k=k-1;接受[订购[M],k](*T.D.诺伊2005年8月10日*)
交叉参考
囊性纤维变性。A109732号有关记录,请参见A109739号A109740号.
关键词
非n
作者
N.J.A.斯隆2005年8月10日
扩展
更多术语来自T.D.诺伊雷·钱德勒2005年8月10日
状态
经核准的