登录

年度呼吁:请向OEIS基金会捐款支持OEIS的持续开发和维护。现在是我们的第61年,我们有超过378000个序列,我们已经被引用了11000次(通常说“多亏了OEIS才被发现”)。

A101906号
逆置换到A101905号.
1
1, 2, 4, 3, 6, 8, 10, 5, 7, 12, 14, 16, 18, 11, 20, 9, 22, 24, 15, 26, 13, 28, 30, 19, 32, 34, 36, 38, 40, 23, 42, 17, 44, 21, 46, 27, 48, 50, 52, 31, 54, 56, 58, 35, 25, 60, 29, 62, 64, 66, 39, 68, 70, 72, 74, 43, 76, 78, 37, 80, 47, 82, 84, 33, 86, 88, 51, 90, 92, 94, 96, 55
抵消
1,2
MAPLE公司
A101261号:=proc(nmax)局部a,n,anex;a:=[1,2];而nops(a)<nmax-do,如果nops(a)mod 2=0,则a:=[op(a),1];否则n:=(nops(a)+1)/2;n:=op(n,a);anex:=2;当a中的anex或n>1时,如果a中的不是anex,则n:=n-1;fi;anex:=anex+1;od;a:=[op(a),anex];fi;od;返回(a);结束时间:A101905号:=proc(nmax)局部a,n,anex;答:=A101261号(2*nmax);对于从2*nmax-1到3*-2的n,执行a:=subsop(n=NULL,a);od;返回(a);结束:a:=A101905号(80) ; n: =1:当成员(n,a,'ninv')执行printf(“%d,”,ninv);n:=n+1:od:#R.J.马塔尔2007年5月2日
关键词
容易的,较少的,非n
作者
勒罗伊·奎特2004年12月20日
扩展
来自的更多条款R.J.马塔尔2007年5月2日
来自的更多条款大卫·沃瑟曼2008年3月31日
状态
经核准的