A068519 If n is prime then a(n) = n, else a(n) = prime(n).

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

Offset

1,1

Links

Zak Seidov, Table of n, a(n) for n = 1..1000

Example

a(1) = 2 because 1 is not prime, hence a(1) = prime(1) = 2.
a(2) = 2 because 2 is prime.

Maple

seq(`if`(isprime(i), i, ithprime(i)), i=1..100);

Mathematica

Table[If[PrimeQ[n], n, Prime[n]], {n, 1, 200}] (* Zak Seidov, Nov 04 2009 *)

Crossrefs

Sequence in context: A354377 A051301 A002583 * A342848 A339826 A108041

Adjacent sequences: A068516 A068517 A068518 * A068520 A068521 A068522

Keyword

nonn,easy

Author

Francois Jooste (phukraut(AT)hotmail.com), Mar 18 2002

Extensions

More terms, b-file and Mathematica code from Zak Seidov, Nov 04 2009

Status

approved