1. Home
2. Questions
3. Tags
5. Users
6. Unanswered
Teams

Ask questions, find answers and collaborate at work with Stack Overflow for Teams.
Try Teams for free Explore Teams
Teams
Ask questions, find answers and collaborate at work with Stack Overflow for Teams. Explore Teams

Return to Answer

Commonmark migration

Source Link

edited Jun 16, 2020 at 9:23

1

#Update#

Update

OK - First part of update solved:

a = PrimeOmega[Range[100000]];
b = PrimeNu[Range[100000]];
c = Range[100000];
ListLinePlot[{c/Zeta[2] - Accumulate[Flatten[Inner[If[#1 === #2, 1, 0] 
&, a, b, List]]]}, PlotStyle -> Red]

enter image description here

... Just unsure how to modify Artes' count plot.

#Old#

Old

Sorry Artes, yes - was looking for this kind of thing:

a = PrimeOmega[Range[100]];
b = PrimeNu[Range[100]];
ListPlot[{Accumulate[Flatten[Inner[If[#1 === #2, 1, 0] &, a, b, List]]],    
Accumulate[Flatten[Inner[If[#1 === #2 + 1, 1, 0] &, a, b, List]]],
Accumulate[Flatten[Inner[If[#1 === #2 + 2, 1, 0] &, a, b, List]]]}]

enter image description here

#Update#

OK - First part of update solved:

a = PrimeOmega[Range[100000]];
b = PrimeNu[Range[100000]];
c = Range[100000];
ListLinePlot[{c/Zeta[2] - Accumulate[Flatten[Inner[If[#1 === #2, 1, 0] 
&, a, b, List]]]}, PlotStyle -> Red]

enter image description here

... Just unsure how to modify Artes' count plot.

#Old#

Sorry Artes, yes - was looking for this kind of thing:

a = PrimeOmega[Range[100]];
b = PrimeNu[Range[100]];
ListPlot[{Accumulate[Flatten[Inner[If[#1 === #2, 1, 0] &, a, b, List]]],    
Accumulate[Flatten[Inner[If[#1 === #2 + 1, 1, 0] &, a, b, List]]],
Accumulate[Flatten[Inner[If[#1 === #2 + 2, 1, 0] &, a, b, List]]]}]

enter image description here

Update

OK - First part of update solved:

a = PrimeOmega[Range[100000]];
b = PrimeNu[Range[100000]];
c = Range[100000];
ListLinePlot[{c/Zeta[2] - Accumulate[Flatten[Inner[If[#1 === #2, 1, 0] 
&, a, b, List]]]}, PlotStyle -> Red]

enter image description here

... Just unsure how to modify Artes' count plot.

Old

Sorry Artes, yes - was looking for this kind of thing:

a = PrimeOmega[Range[100]];
b = PrimeNu[Range[100]];
ListPlot[{Accumulate[Flatten[Inner[If[#1 === #2, 1, 0] &, a, b, List]]],    
Accumulate[Flatten[Inner[If[#1 === #2 + 1, 1, 0] &, a, b, List]]],
Accumulate[Flatten[Inner[If[#1 === #2 + 2, 1, 0] &, a, b, List]]]}]

enter image description here

edited body

Source Link

edited Oct 10, 2013 at 17:26

8.9k
4
27
71

#Update#

OK - First part of update solved:

a = PrimeOmega[Range[100000]];
b = PrimeNu[Range[100000]];
c = Range[100000];
ListLinePlot[{c/Zeta[2] - Accumulate[Flatten[Inner[If[#1 === #2, 1, 0] 
&, a, b, List]]]}, FillingPlotStyle -> Axis]Red]

enter image description here

... Just unsure how to modify Artes' count plot.

#Old#

Sorry Artes, yes - was looking for this kind of thing:

a = PrimeOmega[Range[100]];
b = PrimeNu[Range[100]];
ListPlot[{Accumulate[Flatten[Inner[If[#1 === #2, 1, 0] &, a, b, List]]],    
Accumulate[Flatten[Inner[If[#1 === #2 + 1, 1, 0] &, a, b, List]]],
Accumulate[Flatten[Inner[If[#1 === #2 + 2, 1, 0] &, a, b, List]]]}]

enter image description here

#Update#

OK - First part of update solved:

a = PrimeOmega[Range[100000]];
b = PrimeNu[Range[100000]];
c = Range[100000];
ListLinePlot[{c/Zeta[2] - Accumulate[Flatten[Inner[If[#1 === #2, 1, 0] 
&, a, b, List]]]}, Filling -> Axis]

enter image description here

... Just unsure how to modify Artes' count plot.

#Old#

Sorry Artes, yes - was looking for this kind of thing:

a = PrimeOmega[Range[100]];
b = PrimeNu[Range[100]];
ListPlot[{Accumulate[Flatten[Inner[If[#1 === #2, 1, 0] &, a, b, List]]],    
Accumulate[Flatten[Inner[If[#1 === #2 + 1, 1, 0] &, a, b, List]]],
Accumulate[Flatten[Inner[If[#1 === #2 + 2, 1, 0] &, a, b, List]]]}]

enter image description here

#Update#

OK - First part of update solved:

a = PrimeOmega[Range[100000]];
b = PrimeNu[Range[100000]];
c = Range[100000];
ListLinePlot[{c/Zeta[2] - Accumulate[Flatten[Inner[If[#1 === #2, 1, 0] 
&, a, b, List]]]}, PlotStyle -> Red]

enter image description here

... Just unsure how to modify Artes' count plot.

#Old#

Sorry Artes, yes - was looking for this kind of thing:

a = PrimeOmega[Range[100]];
b = PrimeNu[Range[100]];
ListPlot[{Accumulate[Flatten[Inner[If[#1 === #2, 1, 0] &, a, b, List]]],    
Accumulate[Flatten[Inner[If[#1 === #2 + 1, 1, 0] &, a, b, List]]],
Accumulate[Flatten[Inner[If[#1 === #2 + 2, 1, 0] &, a, b, List]]]}]

enter image description here

added 6 characters in body

Source Link

edited Oct 10, 2013 at 16:28

8.9k
4
27
71

#Update#

OK - First part of update solved:

a = PrimeOmega[Range[1000]];PrimeOmega[Range[100000]];
b = PrimeNu[Range[1000]];PrimeNu[Range[100000]];
c = Range[1000];Range[100000];
ListLinePlot[{c/Zeta[2] - Accumulate[Flatten[Inner[If[#1 === #2, 1, 0] 
&, a, b, List]]]}, Filling -> Axis]

enter image description here

... Just unsure how to modify Artes' count plot.

#Old#

Sorry Artes, yes - was looking for this kind of thing:

a = PrimeOmega[Range[100]];
b = PrimeNu[Range[100]];
ListPlot[{Accumulate[Flatten[Inner[If[#1 === #2, 1, 0] &, a, b, List]]],    
Accumulate[Flatten[Inner[If[#1 === #2 + 1, 1, 0] &, a, b, List]]],
Accumulate[Flatten[Inner[If[#1 === #2 + 2, 1, 0] &, a, b, List]]]}]

enter image description here

#Update#

OK - First part of update solved:

a = PrimeOmega[Range[1000]];
b = PrimeNu[Range[1000]];
c = Range[1000];
ListLinePlot[{c/Zeta[2] - Accumulate[Flatten[Inner[If[#1 === #2, 1, 0] 
&, a, b, List]]]}, Filling -> Axis]

enter image description here

... Just unsure how to modify Artes' count plot.

#Old#

Sorry Artes, yes - was looking for this kind of thing:

a = PrimeOmega[Range[100]];
b = PrimeNu[Range[100]];
ListPlot[{Accumulate[Flatten[Inner[If[#1 === #2, 1, 0] &, a, b, List]]],    
Accumulate[Flatten[Inner[If[#1 === #2 + 1, 1, 0] &, a, b, List]]],
Accumulate[Flatten[Inner[If[#1 === #2 + 2, 1, 0] &, a, b, List]]]}]

enter image description here

#Update#

OK - First part of update solved:

a = PrimeOmega[Range[100000]];
b = PrimeNu[Range[100000]];
c = Range[100000];
ListLinePlot[{c/Zeta[2] - Accumulate[Flatten[Inner[If[#1 === #2, 1, 0] 
&, a, b, List]]]}, Filling -> Axis]

enter image description here

... Just unsure how to modify Artes' count plot.

#Old#

Sorry Artes, yes - was looking for this kind of thing:

a = PrimeOmega[Range[100]];
b = PrimeNu[Range[100]];
ListPlot[{Accumulate[Flatten[Inner[If[#1 === #2, 1, 0] &, a, b, List]]],    
Accumulate[Flatten[Inner[If[#1 === #2 + 1, 1, 0] &, a, b, List]]],
Accumulate[Flatten[Inner[If[#1 === #2 + 2, 1, 0] &, a, b, List]]]}]

enter image description here

added 402 characters in body

Source Link

edited Oct 10, 2013 at 16:12

8.9k
4
27
71

Loading

added 85 characters in body

Source Link

edited Oct 9, 2013 at 23:55

8.9k
4
27
71

Loading

Source Link

created Oct 9, 2013 at 23:21

8.9k
4
27
71

Loading