|
%I #15 Oct 14 2021 18:51:50
%S 0,2,10,16,40,50,74,88,152,170,210,232,304,330,386,416,576,610,682,
%T 720,840,882,970,1016,1208,1258,1362,1416,1584,1642,1762,1824,2208,
%U 2274,2410,2480,2696,2770,2922,3000,3320,3402,3570,3656,3920,4010,4194,4288,4768,4866,5066,5168,5480,5586,5802,5912
%N Exponent of 2 in the hyperfactorial of 2n: a(n) = A007814(A002109(2n)).
%H Chai Wah Wu, <a href="/A249153/b249153.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = A249152(2*n) = A007814(A002109(2*n)).
%F a(n) = 2*A143157(n).
%o (Scheme, two alternative versions)
%o (define (A249153 n) (* 2 (A143157 n)))
%o (define (A249153 n) (A249152 (+ n n)))
%o (Python)
%o from sympy import multiplicity
%o A249153_list, n = [0], 0
%o for i in range(2,20002,2):
%o n += multiplicity(2,i)*i
%o A249153_list.append(n) # _Chai Wah Wu_, Aug 21 2015
%Y Bisection of A249152.
%Y Cf. A002109, A007814, A143157, A069895 (first differences).
%K nonn
%O 0,2
%A _Antti Karttunen_, Oct 25 2014
|
