|
| |
|
|
A129188
|
|
n + n-th prime + n-th composite.
|
|
0
| |
|
|
7, 11, 16, 20, 26, 31, 38, 42, 48, 57, 62, 70, 76, 81, 87, 95, 103, 107, 116, 123, 127, 135, 141, 149, 160, 166, 170, 177, 182, 188, 204, 211, 219, 223, 235, 239, 248, 256, 262, 270, 278, 283, 296, 300, 306, 310, 324, 339, 345, 349, 356, 365, 369, 381, 389, 397
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| a(n) = n+A064799(n). [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), 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 (deutsch(AT)duke.poly.edu), Apr 16 2007
|
|
|
MATHEMATICA
| prs=Prime[Range[200]]; comps=Rest[Complement[Range[prs[[-1]]], prs]]; Table[n + prs[[n]] + comps[[n]], {n, Length[prs]}] [From Harvey P. Dale, Jan. 11, 2011]
|
|
|
CROSSREFS
| Sequence in context: A037136 A023486 A089997 * A022950 A131626 A086762
Adjacent sequences: A129185 A129186 A129187 * A129189 A129190 A129191
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Edwin F. Sampang (efs_files(AT)yahoo.com), Apr 01 2007
|
| |
|
|
