|
%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
|
