Return to Answer

added 50 characters in body

edited Sep 14, 2015 at 9:24

Mathematica, 2033 bytes

Print@PrimeQ@Input[]Print[Mod[(#-1)!^2,#]>0&@Input[]]

There'sor

Print[Length@Divisors@Input[]==2]

Mathematica has a neat short built-in PrimeQ as well, but the I/O functions blow believe it upuses a bitprobabilistic test.

Print@PrimeQ@Input[]

There's a neat short built-in, but the I/O functions blow it up a bit.

Print[Mod[(#-1)!^2,#]>0&@Input[]]

Print[Length@Divisors@Input[]==2]

Mathematica has a built-in PrimeQ as well, but I believe it uses a probabilistic test.

answered Sep 11, 2015 at 19:34

Print@PrimeQ@Input[]

There's a neat short built-in, but the I/O functions blow it up a bit.