Skip to main content
Commonmark migration
Source Link

#Mathematica, 33 bytes

Mathematica, 33 bytes

(P=PrimeQ;P@#&&(P[#+2]||P[#-2]))&

Try it online!

#Mathematica, 33 bytes

(P=PrimeQ;P@#&&(P[#+2]||P[#-2]))&

Try it online!

Mathematica, 33 bytes

(P=PrimeQ;P@#&&(P[#+2]||P[#-2]))&

Try it online!

added 239 characters in body
Source Link
ZaMoC
  • 24.9k
  • 2
  • 30
  • 81

#Mathematica, 3133 bytes

(P=PrimeQ;P@#&&(P[#+2]||P[#-2]))&

Try it online!

#Mathematica, 31 bytes

P=PrimeQ;P@#&&(P[#+2]||P[#-2])&

#Mathematica, 33 bytes

(P=PrimeQ;P@#&&(P[#+2]||P[#-2]))&

Try it online!

Source Link
ZaMoC
  • 24.9k
  • 2
  • 30
  • 81

#Mathematica, 31 bytes

P=PrimeQ;P@#&&(P[#+2]||P[#-2])&