OFFSET
1,1
EXAMPLE
For n=15; 3*15+2=47 and 3*15-2=43.
MATHEMATICA
Select[5*Range[500], PrimeQ[3 # + 2] && PrimeQ[3 # - 2] &] (* T. D. Noe, Dec 09 2013 *)
PROG
(TI-BASIC) Clrio:5(sto)n:Lbl colorin:if isPrime(3n+2) and isPrime(3n-2) Then:Disp n:Pause: EndIf:n+5(sto)n:Goto colorin:EndPrgm
CROSSREFS
KEYWORD
nonn,less
AUTHOR
César Aguilera, Dec 07 2013
STATUS
approved