%I#14 2017年9月17日22:53:06
%S 1,1,2,2,3,4,3,8,14,4,13,5,5,7,17,6,6,18,7,38,32,8,28,23,9,15,11,10,
%电话:26,16,11,41,53,12,33,39,13,10113,14,43,12,15,22,63,16,25,59,17203,
%U 74,18,48,30,19188,50,20122,68,21,9149,22138,83,23,60,86,24,35,29,25,73,62,26,24123,27128,28313
%N a(N)=A048673(楼层(A064216(N)/2))。
%C当A048673表示为二叉树时,任何非根节点k(>=2)包含值n=A048672(k),其父节点a(n)=A04867(floor(k/2))。
%H Antti Karttunen,n的表,n=1..8192的a(n)</a>
%F a(n)=A048673(楼层(A064216(n)/2))。
%F其他身份。对于所有n>=0:
%F a(3n+2)=n+1。
%t f[n_]:=倍@@幂[If[#==1,1,NextPrime[#,-1]]&/@第一个@#,最后一个@#]&@Transpose@FactorInteger[2 n-1];g[n_]:=(Times@@Power[If[#==1,1,NextPrime@#]&/@First@#,Last@#]+1)/2&@Transpose@FactorInteger@n;数组[Floor@g[Floor[f[#]/2]]&,84](*_Michael De Vlieger_,2017年9月16日*)
%o(方案)(定义(A253889 n)(A048673(楼层->精确(/(A064216 n)2)))
%Y参见A048673、A064216、A253888、A253893。
%K nonn公司
%O 1,4型
%2015年1月22日,安提·卡图内
|