A051698 Closest prime to n that is different from n (break ties by taking the smaller prime).

2, 2, 3, 2, 3, 3, 5, 5, 7, 7, 11, 13, 11, 11, 13, 13, 17, 19, 17, 17, 19, 19, 23, 19, 23, 23, 23, 29, 29, 31, 29, 29, 31, 31, 31, 37, 37, 41, 37, 37, 41, 43, 41, 41, 43, 43, 47, 43, 47, 47, 47, 53, 53, 47, 53, 53, 53, 59, 59, 61, 59, 59, 61, 61, 61, 67, 67, 71, 67, 67, 71, 73

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn
• easy

Examples

			Closest primes to 0,1,2,3,4 are 2,2,3,2,3.
		

Links

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

Crossrefs

Related sequences: A023186-A023188, A046929-A046931, A051650, A051652, A051697-A051702, A051728-A051730.

Programs

Mathematica

cp[n_]:=Module[{p1=NextPrime[n,-1],p2=NextPrime[n]},If[p2-nHarvey P. Dale, Dec 11 2018 *)

Extensions

More terms from James Sellers