Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #open "big_int";;
- let dk(n)=
- let a=[2] in
- let rec liste d=
- let d=big_int_of_int 3 in
- if gt_big_int d (sqrt_big_int n) then a
- else a::d
- liste sum_big_int d 2
- in;;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement