%我#16 2024年3月31日11:41:06
%S 2,4,7,8,10,13,14,16,20,20,22,25,26,28,31,32,34,38,40,43,44,46,49,
%电话50,52,57,56,58,61,62,64,67,68,70,74,74,76,79,80,82,85,86,88,92,92,94,
%电话:97,98100103104106111110112115116118121122124128128
%N a(N)=2*N+估值(N,3),估值(N、3)=A007949(N)。
%C关于Voronoi一致性的连接,请参见A371639。
%F a(n)=估价(分母(Voronoi(3,n)),其中Voronoi-(c,n)=(c^n-1)*bernoulli(n))/(n*c^(n-1))。
%p A371638:=n->2*n+padic:-ordp(n,3):序列(A371638(n),n=1..64);
%t数组[2#+整数指数[#,3]&,64](*_Michael De Vlieger_,2024年3月31日*)
%o(SageMath)
%o def A371638(n):返回2*n+估值(n,3)
%o打印([A371638(n)代表范围(1,65)内的n])
%Y参考A007949、A371639、A292608(c=2)。
%K nonn,简单
%O 1,1号机组
%A _Peter Luschny_,2024年3月30日
|