A071994 - OEIS

%I #9 Jan 16 2022 09:17:57

%S 1,4,8,13,20,29,40,52,65,80,96,113,132,152,173,196,221,248,276,305,

%T 336,369,404,440,477,516,557,600,644,689,736,784,833,884,936,989,1044,

%U 1101,1160,1220,1281,1344,1408,1473,1540,1608,1677,1748,1821,1896,1972,2049

%N a(n) = Sum_{k=1..n} A003159(k).

%H Amiram Eldar, <a href="/A071994/b071994.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) ~ 3*n^2/4 + O(n*log(n)). - _Amiram Eldar_, Jan 16 2022

%t Accumulate @ Select[Range[100], EvenQ[IntegerExponent[#, 2]] &] (* _Amiram Eldar_, Jan 16 2022 *)

%Y Cf. A003159.

%K easy,nonn

%O 1,2

%A _Benoit Cloitre_, Jun 17 2002