login
A161778
The A161671(n)-th partial sum of A161671.
1
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,1
FORMULA
a(n) = Sum_{j=1..A161671(n)} A161671(j) = A163116(A161671(n)).
EXAMPLE
a(1) = A163116(A161671(1)) = A163116(2) = 4.
a(2) = A163116(A161671(2)) = A163116(2) = 4.
a(5) = A163116(A161671(5)) = A163116(3) = 5.
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
CROSSREFS
KEYWORD
nonn,less
AUTHOR
EXTENSIONS
Edited, corrected from a(15) on, and extended by R. J. Mathar, Oct 04 2009
STATUS
approved