|
| |
|
|
A068519
|
|
If n is prime then a(n)=n, else a(n) is the n-th prime.
|
|
7
| |
|
|
2, 2, 3, 7, 5, 13, 7, 19, 23, 29, 11, 37, 13, 43, 47, 53, 17, 61, 19, 71, 73, 79, 23, 89, 97, 101, 103, 107, 29, 113, 31, 131, 137, 139, 149, 151, 37, 163, 167, 173, 41, 181, 43, 193, 197, 199, 47, 223, 227, 229, 233, 239, 53, 251, 257, 263, 269, 271, 59, 281, 61, 293
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Zak Seidov, Table of n, a(n) for n=1..1000
|
|
|
EXAMPLE
| a(2)=2 since 2 is prime.
|
|
|
MAPLE
| [seq(`if`(isprime(i)=true, i, ithprime(i)), i=1..1000)];
|
|
|
MATHEMATICA
| Table[If[PrimeQ[n], n, Prime[n]], {n, 1, 200}] [From Zak Seidov (zakseidov(AT)yahoo.com), Nov 04 2009]
|
|
|
CROSSREFS
| Sequence in context: A183407 A051301 A002583 * A083702 A108041 A095017
Adjacent sequences: A068516 A068517 A068518 * A068520 A068521 A068522
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Francois Jooste (phukraut(AT)hotmail.com), Mar 18 2002
|
|
|
EXTENSIONS
| More terms, b-file and Mathematica code from Zak Seidov (zakseidov(AT)yahoo.com), Nov 04 2009
|
| |
|
|
