login
Partial sums of A051903.
7

%I #18 Oct 19 2020 03:27:32

%S 0,1,2,4,5,6,7,10,12,13,14,16,17,18,19,23,24,26,27,29,30,31,32,35,37,

%T 38,41,43,44,45,46,51,52,53,54,56,57,58,59,62,63,64,65,67,69,70,71,75,

%U 77,79,80,82,83,86,87,90,91,92,93,95,96,97,99,105,106,107,108,110,111,112

%N Partial sums of A051903.

%H Reinhard Zumkeller, <a href="/A129132/b129132.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n+1) = a(n) + A051903(n), a(1) = 0;

%F A128651(a(n-1) + 2) = A007947(n) for n>1.

%F a(n) ~ c * n, where c is Niven's constant (A033150). - _Amiram Eldar_, Oct 19 2020

%t f[1] = 0; f[n_] := Max @ FactorInteger[n][[;; , 2]]; Accumulate @ Array[f, 70] (* _Amiram Eldar_, Oct 19 2020 *)

%Y Cf. A007947, A033150, A051903, A128651.

%K nonn,easy

%O 1,3

%A _Reinhard Zumkeller_, Mar 30 2007