File:Radical of an Integer Plot.svg
Size of the above preview of this SVG file: 960 × 938 pixels. Other resolutions: 250 × 244 pixels | 500 × 489 pixels | 1,280 × 1,251 pixels | 3,840 × 3,754 pixels.
Original file (SVG file, nominally 533 × 521 pixels, file size: 693 KB)
Summary
[edit]
| Description |
Plot of the first 1000 values of the radical of an integer function rad(n), prime integer values for n excluded |
|---|---|
| Source |
Own work |
| Date |
2026-04-29 |
| Author |
Brian Ortigas (it:User:BrianOrtigas) |
| Permission (Reusing this file) |
See below.
|
Radical of an integer plot function. Generated with Mathematica:
ListPlot[
Table[{n, Times @@ FactorInteger[n][[All, 1]]}, {n, 1000}],
Frame -> True,
FrameLabel -> {n, Rad[n]},
PlotRange -> {0, 1000},
AspectRatio -> 1,
PlotStyle -> Blue,
PlotMarkers -> {Automatic, 5},
LabelStyle -> {FontFamily -> "Times", 12}];
Licensing
[edit]
I, the copyright holder of this work, hereby publish it under the following license:
This file is made available under the Creative Commons CC0 1.0 Universal Public Domain Dedication.
The person who associated a work with this deed has dedicated the work to the public domain by waiving all of his or her rights to the work worldwide under copyright law, including all related and neighboring rights, to the extent allowed by law. You can copy, modify, distribute and perform the work, even for commercial purposes, all without asking permission.
File history
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Thumbnail | Dimensions | User | Comment | |
|---|---|---|---|---|---|
| current | 23:50, 29 April 2026 | | 533 × 521 (693 KB) | BrianOrtigas (talk | contribs) | Simplified code |
| 23:44, 29 April 2026 |  | 533 × 521 (584 KB) | BrianOrtigas (talk | contribs) | Fixed a formatting error on the left label | |
| 23:36, 29 April 2026 |  | 533 × 521 (583 KB) | BrianOrtigas (talk | contribs) | {{Information |Description=Plot of the first 1000 values of the radical of an integer function rad(n), prime integer values for n excluded |Source={{Own}}{{Created with Mathematica}} |Author=Brian Ortigas (it:User:BrianOrtigas) |Date=2026-04-29 |Permission= }} Euler's Totient function. Generated with Mathematica: {{Mathematica}} <syntaxhighlight lang="mathematica"> ListPlot[ Table[If[PrimeQ[n], Nothing, {n, Times @@ FactorInteger[n]All, 1}], {n, 1000}], Frame -> True, Frame... |
You cannot overwrite this file.
File usage
The following page uses this file:
