I want to graph this function:
DivisorSigma[1,x]-(x+1)
However, I only want to plot the points that satisfy other conditions:
DivisorSigma[0,x]-2=2
and
Mod[x,2]=1
Is that possible within Mathematica?
$\begingroup$
$\endgroup$
0
Add a comment
|
2 Answers
$\begingroup$
$\endgroup$
1
You could always use Piecewise or ConditionalExpression:
f[x_] = ConditionalExpression[
DivisorSigma[1, x] - (x + 1),
Mod[x, 2] == 1 && DivisorSigma[0, x] - 2 == 2
];
DiscretePlot[f[x], {x, 1, 100}, PlotMarkers -> {Automatic, 6}]
answered Jul 4, 2019 at 20:46
-
$\begingroup$ Thank you! This could be exactly what I need! $\endgroup$– DUO LabsCommented Jul 5, 2019 at 0:23
$\begingroup$
$\endgroup$
4
{#,DivisorSigma[1,#]-(#+1)}&/@Select[Range[100],DivisorSigma[0,#]-2==2&&OddQ[#]&]
ListPlot[%]
answered Jul 4, 2019 at 1:44
AccidentalFourierTransformAccidentalFourierTransform
10.4k1 gold badge20 silver badges52 bronze badges
-
$\begingroup$ Thank you, but what about the "Mod" part? $\endgroup$– DUO LabsCommented Jul 4, 2019 at 1:49
-
$\begingroup$ And I don't want to list the points. $\endgroup$– DUO LabsCommented Jul 4, 2019 at 1:50
-
$\begingroup$ Is there a way to plot multiple functions at the same time with this command $\endgroup$– DUO LabsCommented Jul 4, 2019 at 2:05
-
$\begingroup$ Yes. Read the documentation for
ListPlot. $\endgroup$ Commented Jul 4, 2019 at 12:36