Mdthbs

What is the gold linker?

Advisor asked for my entire slide presentation so she could give the presentation at an international conference

Could an American state survive nuclear war?

How can I check the implementation of a builtin function?

Does any politician honestly want a No Deal Brexit?

Generating sequential alphanumeric values that match a certain pattern

When to use the gestalt principle of common region?

Where does the upgrade to macOS Catalina move root "/" directory files?

Did Terry Pratchett ever explain the inspiration behind the Luggage?

Get injured / Get increased

How are Aircraft Noses Designed?

What are the differences between prismatic, lensatic, and optical sighting compasses?

Does obfuscation give any measurable security benefit?

Can we not simply connect a battery to a RAM to prevent data loss during power cuts?

How to prove that invoices are really unpaid?

In the twin paradox does the returning twin also come back permanently length contracted flatter than the twin on earth?

I am often given, occasionally stolen, rarely sold, and never borrowed

Does immunity to fear prevent a mummy's Dreadful Glare from paralyzing a character?

Is there any research on the development of attacks against artificial intelligence systems?

Is the tap water in France safe to drink?

How (and if) to include name change for transgender person in genealogy?

Do more Americans want the Bidens investigated than Trump impeached?

Drawing a sequence of circles

Converting list into Integer

Drawing a sequence of circles

Arcs of rotation for anglesDrawing pairs (planar graph, circle packing)Coloring circles based on radiusPlot Two Circles and color their differenceHow to demonstrate a limit without having to pre-calculate certain pointsDraw all the circles that touch the x-axis and a unit circleHow to visualize the Cremona method for cardioid generationDrawing Circle using Image[Graphics[]] - incorrect coordinates

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{
margin-bottom:0;
}
.everyonelovesstackoverflow{position:absolute;height:1px;width:1px;opacity:0;top:0;left:0;pointer-events:none;}

3

$begingroup$

For every natural number from 1 to 150, draw a circle centered on the x-axis in that number and with the diameter equal to the number of divisors of the number. I don't know what should I do.

graphics number-theory

share|improve this question

edited 8 hours ago

m_goldberg

92.1k88 gold badges7676 silver badges210210 bronze badges

asked 8 hours ago

fangmiao niufangmiao niu

2622 bronze badges

New contributor

fangmiao niu is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

$endgroup$

• 
  
  
  

  
  2
  

  
  
  
  
  
  

  
  $begingroup$
  Welcome to Mathematica.SE. Are you sure you are posting on the right site? There is nothing in your question making it clear that it is concerned with Mathematica software.
  $endgroup$
  – m_goldberg
  8 hours ago
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  What have you tried so far?
  $endgroup$
  – user6014
  8 hours ago
  

  
  
  
  

add a comment
 | 

3

$begingroup$

For every natural number from 1 to 150, draw a circle centered on the x-axis in that number and with the diameter equal to the number of divisors of the number. I don't know what should I do.

graphics number-theory

share|improve this question

edited 8 hours ago

m_goldberg

92.1k88 gold badges7676 silver badges210210 bronze badges

asked 8 hours ago

fangmiao niufangmiao niu

2622 bronze badges

New contributor

fangmiao niu is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

$endgroup$

• 
  
  
  

  
  2
  

  
  
  
  
  
  

  
  $begingroup$
  Welcome to Mathematica.SE. Are you sure you are posting on the right site? There is nothing in your question making it clear that it is concerned with Mathematica software.
  $endgroup$
  – m_goldberg
  8 hours ago
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  What have you tried so far?
  $endgroup$
  – user6014
  8 hours ago
  

  
  
  
  

add a comment
 | 

$begingroup$

For every natural number from 1 to 150, draw a circle centered on the x-axis in that number and with the diameter equal to the number of divisors of the number. I don't know what should I do.

graphics number-theory

share|improve this question

edited 8 hours ago

m_goldberg

92.1k88 gold badges7676 silver badges210210 bronze badges

asked 8 hours ago

fangmiao niufangmiao niu

2622 bronze badges

New contributor

fangmiao niu is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

$endgroup$

share|improve this question

edited 8 hours ago

m_goldberg

92.1k88 gold badges7676 silver badges210210 bronze badges

asked 8 hours ago

fangmiao niufangmiao niu

2622 bronze badges

New contributor

fangmiao niu is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

share|improve this question

edited 8 hours ago

m_goldberg

92.1k88 gold badges7676 silver badges210210 bronze badges

asked 8 hours ago

fangmiao niufangmiao niu

2622 bronze badges

New contributor

fangmiao niu is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

edited 8 hours ago

m_goldberg

92.1k88 gold badges7676 silver badges210210 bronze badges

edited 8 hours ago

m_goldberg

92.1k88 gold badges7676 silver badges210210 bronze badges

asked 8 hours ago

fangmiao niufangmiao niu

2622 bronze badges

New contributor

fangmiao niu is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

asked 8 hours ago

fangmiao niufangmiao niu

2622 bronze badges

2 Answers
2

active

oldest

votes

7

$begingroup$

Graphics[

 {r = Length[Divisors@#]/2;

    ColorData["Rainbow"][(r - 1)/7],

    Circle[{#, 0}, r]} & /@

  Range[150],

 ImageSize -> 504]

share|improve this answer

answered 7 hours ago

Bob HanlonBob Hanlon

66.6k33 gold badges3737 silver badges102102 bronze badges

$endgroup$

add a comment
 | 

3

$begingroup$

You can get the radii using the built-in function DivisorSigma directly:

n = 50;

radii = DivisorSigma[0, Range @ n]/2;

Coloring the circles based on radius:

Graphics[MapThread[{Thick, ColorData[{"Rainbow", {0, Max@radii}}]@#2, Circle[{#, 0}, #2]} &,

  {Range[n], radii}]]

Coloring the circles based on the horizontal coordinate of the center:

Graphics[ MapThread[{Thick, ColorData[{"Rainbow", {0, n}}]@#,  Circle[{#, 0}, #2]} &, 

  {Range[n], radii}]]

share|improve this answer

answered 4 hours ago

kglrkglr

220k1010 gold badges250250 silver badges507507 bronze badges

$endgroup$

add a comment
 | 

Your Answer

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "387"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/4.0/"u003ecc by-sa 4.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});


}
});

fangmiao niu is a new contributor. Be nice, and check out our Code of Conduct.

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f207583%2fdrawing-a-sequence-of-circles%23new-answer', 'question_page');
}
);

Post as a guest

Name

Email

Required, but never shown

7

$begingroup$

Graphics[

 {r = Length[Divisors@#]/2;

    ColorData["Rainbow"][(r - 1)/7],

    Circle[{#, 0}, r]} & /@

  Range[150],

 ImageSize -> 504]

share|improve this answer

answered 7 hours ago

Bob HanlonBob Hanlon

66.6k33 gold badges3737 silver badges102102 bronze badges

$endgroup$

add a comment
 | 

7

$begingroup$

Graphics[

 {r = Length[Divisors@#]/2;

    ColorData["Rainbow"][(r - 1)/7],

    Circle[{#, 0}, r]} & /@

  Range[150],

 ImageSize -> 504]

share|improve this answer

answered 7 hours ago

Bob HanlonBob Hanlon

66.6k33 gold badges3737 silver badges102102 bronze badges

$endgroup$

add a comment
 | 

$begingroup$

Graphics[

 {r = Length[Divisors@#]/2;

    ColorData["Rainbow"][(r - 1)/7],

    Circle[{#, 0}, r]} & /@

  Range[150],

 ImageSize -> 504]

share|improve this answer

answered 7 hours ago

Bob HanlonBob Hanlon

66.6k33 gold badges3737 silver badges102102 bronze badges

$endgroup$

Graphics[

 {r = Length[Divisors@#]/2;

    ColorData["Rainbow"][(r - 1)/7],

    Circle[{#, 0}, r]} & /@

  Range[150],

 ImageSize -> 504]

share|improve this answer

answered 7 hours ago

Bob HanlonBob Hanlon

66.6k33 gold badges3737 silver badges102102 bronze badges

answered 7 hours ago

Bob HanlonBob Hanlon

66.6k33 gold badges3737 silver badges102102 bronze badges

answered 7 hours ago

Bob HanlonBob Hanlon

66.6k33 gold badges3737 silver badges102102 bronze badges

3

$begingroup$

You can get the radii using the built-in function DivisorSigma directly:

n = 50;

radii = DivisorSigma[0, Range @ n]/2;

Coloring the circles based on radius:

Graphics[MapThread[{Thick, ColorData[{"Rainbow", {0, Max@radii}}]@#2, Circle[{#, 0}, #2]} &,

  {Range[n], radii}]]

Coloring the circles based on the horizontal coordinate of the center:

Graphics[ MapThread[{Thick, ColorData[{"Rainbow", {0, n}}]@#,  Circle[{#, 0}, #2]} &, 

  {Range[n], radii}]]

share|improve this answer

answered 4 hours ago

kglrkglr

220k1010 gold badges250250 silver badges507507 bronze badges

$endgroup$

add a comment
 | 

3

$begingroup$

You can get the radii using the built-in function DivisorSigma directly:

n = 50;

radii = DivisorSigma[0, Range @ n]/2;

Coloring the circles based on radius:

Graphics[MapThread[{Thick, ColorData[{"Rainbow", {0, Max@radii}}]@#2, Circle[{#, 0}, #2]} &,

  {Range[n], radii}]]

Coloring the circles based on the horizontal coordinate of the center:

Graphics[ MapThread[{Thick, ColorData[{"Rainbow", {0, n}}]@#,  Circle[{#, 0}, #2]} &, 

  {Range[n], radii}]]

share|improve this answer

answered 4 hours ago

kglrkglr

220k1010 gold badges250250 silver badges507507 bronze badges

$endgroup$

add a comment
 | 

$begingroup$

You can get the radii using the built-in function DivisorSigma directly:

n = 50;

radii = DivisorSigma[0, Range @ n]/2;

Coloring the circles based on radius:

Graphics[MapThread[{Thick, ColorData[{"Rainbow", {0, Max@radii}}]@#2, Circle[{#, 0}, #2]} &,

  {Range[n], radii}]]

Coloring the circles based on the horizontal coordinate of the center:

Graphics[ MapThread[{Thick, ColorData[{"Rainbow", {0, n}}]@#,  Circle[{#, 0}, #2]} &, 

  {Range[n], radii}]]

share|improve this answer

answered 4 hours ago

kglrkglr

220k1010 gold badges250250 silver badges507507 bronze badges

$endgroup$

n = 50;

radii = DivisorSigma[0, Range @ n]/2;

Graphics[MapThread[{Thick, ColorData[{"Rainbow", {0, Max@radii}}]@#2, Circle[{#, 0}, #2]} &,

  {Range[n], radii}]]

Graphics[ MapThread[{Thick, ColorData[{"Rainbow", {0, n}}]@#,  Circle[{#, 0}, #2]} &, 

  {Range[n], radii}]]

share|improve this answer

answered 4 hours ago

kglrkglr

220k1010 gold badges250250 silver badges507507 bronze badges

answered 4 hours ago

kglrkglr

220k1010 gold badges250250 silver badges507507 bronze badges

answered 4 hours ago

kglrkglr

220k1010 gold badges250250 silver badges507507 bronze badges