Data commit

Task/Arithmetic-Rational/Mathematica/arithmetic-rational-1.math

@@ -0,0 +1,26 @@
+4/16
+3/8
+8/4
+4Pi/2
+16!/10!
+Sqrt[9/16]
+Sqrt[3/4]
+(23/12)^5
+2 + 1/(1 + 1/(3 + 1/4))
+
+1/2+1/3+1/5
+8/Pi+Pi/8 //Together
+13/17 + 7/31
+Sum[1/n,{n,1,100}]      (*summation of 1/1 + 1/2 + 1/3 + 1/4+ .........+ 1/99 + 1/100*)
+
+1/2-1/3
+a=1/3;a+=1/7
+
+1/4==2/8
+1/4>3/8
+Pi/E >23/20
+1/3!=123/370
+Sin[3]/Sin[2]>3/20
+
+Numerator[6/9]
+Denominator[6/9]

Task/Arithmetic-Rational/Mathematica/arithmetic-rational-2.math

@@ -0,0 +1,3 @@
+c/(2 c)
+(b^2 - c^2)/(b - c)  // Cancel
+1/2 + b/c // Together

Task/Arithmetic-Rational/Mathematica/arithmetic-rational-3.math

@@ -0,0 +1,3 @@
+1/2
+b+c
+(2 b+c) / (2 c)

Task/Arithmetic-Rational/Mathematica/arithmetic-rational-4.math

@@ -0,0 +1 @@
+1+2*{1,2,3}^3

Task/Arithmetic-Rational/Mathematica/arithmetic-rational-5.math

@@ -0,0 +1 @@
+{3, 17, 55}

Task/Arithmetic-Rational/Mathematica/arithmetic-rational-6.math

@@ -0,0 +1,4 @@
+found={};
+CheckPerfect[num_Integer]:=If[Total[1/Divisors[num]]==2,AppendTo[found,num]];
+Do[CheckPerfect[i],{i,1,2^25}];
+found

Task/Arithmetic-Rational/Mathematica/arithmetic-rational-7.math

@@ -0,0 +1 @@
+{6, 28, 496, 8128, 33550336}