ludic numbers

science_man_88 Dec 20th, 2016 166 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ludic()={
  2. a=[1];
  3. b=[2..100000];
  4. until(#b==0,
  5.        a=concat(a,b[1]);
  6.        c=ceil(#b/b[1]);
  7.        b=setminus(b,vecextract(b,vector(c,i,b[1]*(i-1)+1)))
  8.       );
  9. a
  10. }
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