|
%I #11 Feb 07 2023 08:37:45
%S 1,17,49,113,194,322,565,821,1333,1958,2687,3711,5007,7055,9242,11643,
%T 14235,17360,21248,25344,30528,37089,44865,53057,63057,73425,85089,
%U 99730,115282,130907,147291,164098,183781,203781,224517,247845,276406
%N Partial sums of A036967.
%H Amiram Eldar, <a href="/A176273/b176273.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = Sum_{i=1..n} A036967(i).
%e a(11) = 1 + 16 + 32 + 64 + 81 + 128 + 243 + 256 + 512 + 625 + 729 = 2687.
%t Accumulate @ Select[Range[25000], # == 1 || Min[FactorInteger[#][[;; , 2]]] > 3 &] (* _Amiram Eldar_, Feb 07 2023 *)
%Y Cf. A000583, A001694, A036966, A036967.
%K easy,nonn
%O 1,2
%A _Jonathan Vos Post_, Apr 14 2010
|
