A096457 If n is prime replace n with the next prime.

1, 3, 5, 4, 7, 6, 11, 8, 9, 10, 13, 12, 17, 14, 15, 16, 19, 18, 23, 20, 21, 22, 29, 24, 25, 26, 27, 28, 31, 30, 37, 32, 33, 34, 35, 36, 41, 38, 39, 40, 43, 42, 47, 44, 45, 46, 53, 48, 49, 50, 51, 52, 59, 54, 55, 56, 57, 58, 61, 60, 67, 62, 63, 64, 65, 66, 71, 68, 69, 70, 73, 72

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

For n = prime 7, nextprime(7+1) = 11 = a(7).

Mathematica

Table[If[PrimeQ[n], NextPrime[n], n], {n, 80}] (* Harvey P. Dale, Jul 05 2019 *)

Prog

(PARI) f(n) = for(x=1, n, if(isprime(x), y=nextprime(x+1), y=x); print1(y", "))

Crossrefs

Sequence in context: A107431 A189827 A023859 * A277897 A082568 A242640

Adjacent sequences: A096454 A096455 A096456 * A096458 A096459 A096460

Keyword

nonn

Author

Cino Hilliard, Aug 11 2004

Status

approved