A045718 Nearest neighbors of primes.

1, 2, 3, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 28, 30, 32, 36, 38, 40, 42, 44, 46, 48, 52, 54, 58, 60, 62, 66, 68, 70, 72, 74, 78, 80, 82, 84, 88, 90, 96, 98, 100, 102, 104, 106, 108, 110, 112, 114, 126, 128, 130, 132, 136, 138, 140, 148, 150, 152, 156, 158, 162

Offset: 0

Author

Felice Russo

Keywords

• nonn
• easy

Examples

			p=7 contributes 6 and 8 to the list.
		

Links

• Seiichi Manyama, Table of n, a(n) for n = 0..10000

Crossrefs

Cf. A000040.

Programs

Mathematica

Union[ Table[ Prime[ i ]-1, {i, 1, 100} ]~Join~Table[ Prime[ i ]+1, {i, 1, 100} ] ]
Union[Flatten[Table[n+{1,-1},{n,Prime[Range[50]]}]]] (* Harvey P. Dale, Oct 18 2015 *)

PARI

isA045718(n) = isprime(n-1)||isprime(n+1) \\ Michael B. Porter, Feb 02 2010

Extensions

Corrected and extended by Erich Friedman