OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..5000
EXAMPLE
2+2=2^2(semiprime), 7+2=3^2(semiprime), 11-2=3^2(semiprime), 13+2=3*5(semiprime), 17-2=3*5(semiprime)
MATHEMATICA
Select[Table[Prime[n], {n, 200}], (Last /@ FactorInteger[#-2] == {1, 1} || Last /@ FactorInteger[#-2] == {2}) || (Last /@ FactorInteger[#+2] == {1, 1} || Last /@ FactorInteger[#+2] == {2}) &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 18 2012
STATUS
approved