|
%I #7 May 04 2019 23:06:19
%S 4,4,2,2,5,6,20,20,36,127,152,290,376,423,590,857,1279,1379,1928,2308,
%T 2308,2859,3339,4200,5579,6252,6252,6968,7223,7738,11232,12206,13913,
%U 13913,17338,17753,19914,22191,23130,25561,28102,28625,33642,33642,34814
%N The A161671(n)-th partial sum of A161671.
%F a(n) = Sum_{j=1..A161671(n)} A161671(j) = A163116(A161671(n)).
%e a(1) = A163116(A161671(1)) = A163116(2) = 4.
%e a(2) = A163116(A161671(2)) = A163116(2) = 4.
%e a(5) = A163116(A161671(5)) = A163116(3) = 5.
%p A141468 := proc(n) option remember ; if n <= 2 then n-1 ; else for a from procname(n-1)+1 do if not isprime(a) then RETURN(a) ; fi; od: fi; end:
%p A161671 := proc(n) ithprime(n)-A141468(n) ; end:
%p A161778 := proc(n) add( A161671(j),j=1..A161671(n)) ; end: seq(A161778(n),n=1..90) ; # _R. J. Mathar_, Oct 04 2009
%Y Cf. A000040, A141468, A161671.
%K nonn,less
%O 1,1
%A _Juri-Stepan Gerasimov_, Jun 19 2009
%E Edited, corrected from a(15) on, and extended by _R. J. Mathar_, Oct 04 2009
|
