SHARE
TWEET

Untitled

a guest Mar 25th, 2019 57 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. AbsoluteTiming[
  2.  nMax = 4;
  3.  f[{a_, b_}] := Prime[a] + 2*b^2;
  4.  g[x_] := ! PrimeQ[x] && OddQ[x];
  5.  lst1 = Select[Range[3, 10^nMax], g];
  6.  lst2 = Select[
  7.    Map[f, Tuples[{Range[2, 10^(nMax - 1)], Range[10^nMax]}]], g];
  8.  ans = First[Complement[lst1, lst2]]]
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