OFFSET
0,2
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..10000
EXAMPLE
p=7 contributes 6 and 8 to the list.
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 *)
PROG
(PARI) isA045718(n) = isprime(n-1)||isprime(n+1) \\ Michael B. Porter, Feb 02 2010
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
Corrected and extended by Erich Friedman
STATUS
approved