Advertisement
Guest User

Untitled

a guest
Apr 17th, 2014
48
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.18 KB | None | 0 0
  1. #open "big_int";;
  2.  
  3.  
  4. let dk(n)=
  5. let a=[2] in
  6. let rec liste d=
  7. let d=big_int_of_int 3 in
  8. if gt_big_int d (sqrt_big_int n) then a
  9. else a::d
  10. liste sum_big_int d 2
  11. in;;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement