OFFSET
0,3
COMMENTS
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 0..10000
FORMULA
Sum_{n>=1} 1/a(n) = A122998. - Amiram Eldar, Nov 17 2020
MAPLE
ithnonprime := proc(n)local k: option remember: if(n=1)then return 1: fi: for k from procname(n-1)+1 do if(not isprime(k))then return k fi: od: end: A051349 := proc(n) option remember: local k: if(n<=1)then return n: fi: return ithnonprime(n)+procname(n-1): end: seq(A051349(n), n=0..51); # Nathaniel Johnston, May 25 2011
MATHEMATICA
lst={}; s=0; Do[If[ !PrimeQ[n], s=s+n; AppendTo[lst, s]], {n, 0, 10^2}]; lst (* Vladimir Joseph Stephan Orlovsky, Aug 14 2008 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Armand Turpel (armandt(AT)unforgettable.com)
STATUS
approved