编辑
经核准的
Alois P.Heinz,<a href=“/A027874号/b027874.txt“>n、a(n)表(n=1..10000)</a>
a: =n->(q->`如果`(n>2*3^q,3*(q+1)*n+2*(n-3^(q+1,
3*q*n+4*(n-3^q))(ilog[3](n)):
seq(a(n),n=1..60)#阿洛伊斯·海因茨2018年2月22日
a(n) = 3*q*n+2*(n-3^q),如果2*3^(q-1)<=n<=3^q;3*q*n+4*(n-3^q),如果3^q<=n<=2*3^q。
检验过的
提出
a[n_]:=对于[q=0,True,q++,如果[2*3^(q-1)<=n<=3^q,返回[3*q*n+2*(n-3^q)],如果[3^q<=n≤2*3^q,则返回[3*q*n+4*(n-3 ^q)]];阵列[a,55](*Jean-François Alcover公司2015年10月26日*)
克努特
高德纳
更多术语来自_詹姆斯·塞勒斯 (卖方(自动变速箱)数学.电源单元.教育)_
OEIS服务器: https://oeis.org/edit/global/639