File:Digits in largest prime by year 2014.png

From Wikimedia Commons, the free media repository
Jump to navigation Jump to search

Original file(2,509 × 1,543 pixels, file size: 116 KB, MIME type: image/png)

Captions

Captions

Add a one-line explanation of what this file represents

Summary[edit]

Description
English: Plot of the number of digits in largest known prime by year, since the electronic computer. Note that the vertical scale is logarithmic. The red line is the exponential curve of best fit: .
Date
Source

Mathematica source code:

primeData = {{1952, 157}, {1952, 687}, {1957, 969}, {1961, 1281}, {1961, 1332}, {1963, 2917}, {1963, 3376}, {1971, 6002}, {1978, 6533}, {1979, 6987}, {1979, 13395}, {1982, 25962}, {1983, 39751}, {1985, 65050}, {1989, 65087}, {1992, 227832}, {1994, 258716}, {1996, 378632}, {1996, 420921}, {1997, 895932}, {1998, 909526}, {1999, 2098960}, {2001, 4053946}, {2003, 6320430}, {2004, 7235733}, {2005, 7816230}, {2005, 9152052}, {2006, 9808358}, {2008, 12978189}, {2013, 17425170}, {2016, 22338618}};
fitEq = Exp[a x + b] /. FindFit[{#1, Log[#2]} & @@@ primeData, a x + b, {a, b}, x];
primes = ListLogPlot[primeData, PlotRange -> {{1950, 2017}, {90, Automatic}}, Joined -> True, Frame -> True, FrameStyle -> GrayLevel[.3], 
   GridLines -> {Range[1960, 2010, 10], 10^Range[3, 7]}, GridLinesStyle -> Directive[Gray, Dashed, Opacity[.25]], ImageSize -> 1000, 
   FrameTicksStyle -> Directive[FontFamily -> "Times", FontSize -> 22], Mesh -> All, MeshStyle -> Directive[ColorData[1][1], PointSize[Medium]]];
bestfit = LogPlot[fitEq, {x, 1950, 2017}, PlotStyle -> Directive[Red, Dashed, AbsoluteDashing[5], Opacity[.5]]];
res = Show[primes, bestfit]
Author Chiph588
Other versions

Licensing[edit]

I, the copyright holder of this work, hereby publish it under the following license:
w:en:Creative Commons
attribution share alike
This file is licensed under the Creative Commons Attribution-Share Alike 3.0 Unported license.
You are free:
  • to share – to copy, distribute and transmit the work
  • to remix – to adapt the work
Under the following conditions:
  • attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
  • share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current16:15, 21 January 2016Thumbnail for version as of 16:15, 21 January 20162,509 × 1,543 (116 KB)Chiph588 (talk | contribs)Adds the new prime found in 2016.
22:05, 5 February 2014Thumbnail for version as of 22:05, 5 February 20141,000 × 613 (32 KB)Chiph588 (talk | contribs)Added plot points.
18:55, 21 January 2014Thumbnail for version as of 18:55, 21 January 20141,000 × 613 (32 KB)Chiph588 (talk | contribs)even larger frame ticks
18:51, 21 January 2014Thumbnail for version as of 18:51, 21 January 20141,000 × 609 (29 KB)Chiph588 (talk | contribs)even larger frame ticks
18:49, 21 January 2014Thumbnail for version as of 18:49, 21 January 20141,000 × 614 (28 KB)Chiph588 (talk | contribs)larger frame ticks
18:10, 21 January 2014Thumbnail for version as of 18:10, 21 January 20141,000 × 615 (25 KB)Chiph588 (talk | contribs)User created page with UploadWizard

File usage on other wikis

The following other wikis use this file:

Metadata