This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A045718 #18 Jan 29 2017 07:22:01
%S A045718 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,
%T A045718 54,58,60,62,66,68,70,72,74,78,80,82,84,88,90,96,98,100,102,104,106,
%U A045718 108,110,112,114,126,128,130,132,136,138,140,148,150,152,156,158,162
%N A045718 Nearest neighbors of primes.
%H A045718 Seiichi Manyama, <a href="/A045718/b045718.txt">Table of n, a(n) for n = 0..10000</a>
%e A045718 p=7 contributes 6 and 8 to the list.
%t A045718 Union[ Table[ Prime[ i ]-1, {i, 1, 100} ]~Join~Table[ Prime[ i ]+1, {i, 1, 100} ] ]
%t A045718 Union[Flatten[Table[n+{1,-1},{n,Prime[Range[50]]}]]] (* _Harvey P. Dale_, Oct 18 2015 *)
%o A045718 (PARI) isA045718(n) = isprime(n-1)||isprime(n+1) \\ _Michael B. Porter_, Feb 02 2010
%Y A045718 Cf. A000040.
%K A045718 nonn,easy
%O A045718 0,2
%A A045718 _Felice Russo_
%E A045718 Corrected and extended by _Erich Friedman_