OFFSET
1,1
FORMULA
a(n) = n+A064799(n). - R. J. Mathar, Nov 25 2008
EXAMPLE
a(1)=1+2+4, a(2)=2+3+6, a(3)=3+5+8, a(4)=4+7+9.
MAPLE
c:=proc(n) if isprime(n)=false then n else fi end: C:=[seq(c(n), n=2..100)]: a:=n->ithprime(n)+C[n]+n: seq(a(n), n=1..70); # Emeric Deutsch, Apr 16 2007
MATHEMATICA
prs=Prime[Range[200]]; comps=Rest[Complement[Range[prs[[-1]]], prs]]; Table[n + prs[[n]] + comps[[n]], {n, Length[prs]}] (* Harvey P. Dale, Jan 11 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Edwin F. Sampang, Apr 01 2007
STATUS
approved