A161778 The A161671(n)-th partial sum of A161671.
4, 4, 2, 2, 5, 6, 20, 20, 36, 127, 152, 290, 376, 423, 590, 857, 1279, 1379, 1928, 2308, 2308, 2859, 3339, 4200, 5579, 6252, 6252, 6968, 7223, 7738, 11232, 12206, 13913, 13913, 17338, 17753, 19914, 22191, 23130, 25561, 28102, 28625, 33642, 33642, 34814
Offset: 1
Examples
a(1) = A163116(A161671(1)) = A163116(2) = 4. a(2) = A163116(A161671(2)) = A163116(2) = 4. a(5) = A163116(A161671(5)) = A163116(3) = 5.
Programs
-
Maple
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: A161671 := proc(n) ithprime(n)-A141468(n) ; end: A161778 := proc(n) add( A161671(j),j=1..A161671(n)) ; end: seq(A161778(n),n=1..90) ; # R. J. Mathar, Oct 04 2009
Extensions
Edited, corrected from a(15) on, and extended by R. J. Mathar, Oct 04 2009