SHARE
TWEET

Untitled

a guest Mar 25th, 2019 61 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. AbsoluteTiming[
  2.  f[n_] := PrimeQ[n] && Sort[IntegerDigits[n]] == Range[7];
  3.  ans = SelectFirst[Range[7654321, 1234567, -2], f]]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top