File:Digits in largest prime by year 2014.png

Summary

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
File:Digits in largest prime found as a function of time.svg is a vector version of this file. It should be used in place of this PNG file when not inferior.Category:Vector version available
File:Digits in largest prime by year 2014.png → File:Digits in largest prime found as a function of time.svg
For more information, see Help:SVG.
In other languages
Alemannisch ∙ العربية ∙ беларуская (тарашкевіца) ∙ български ∙ বাংলা ∙ català ∙ нохчийн ∙ čeština ∙ dansk ∙ Deutsch ∙ Ελληνικά ∙ English ∙ British English ∙ Esperanto ∙ español ∙ eesti ∙ euskara ∙ فارسی ∙ suomi ∙ français ∙ Frysk ∙ galego ∙ Alemannisch ∙ עברית ∙ हिन्दी ∙ hrvatski ∙ magyar ∙ հայերեն ∙ Bahasa Indonesia ∙ Ido ∙ italiano ∙ 日本語 ∙ ქართული ∙ 한국어 ∙ lietuvių ∙ македонски ∙ മലയാളം ∙ Bahasa Melayu ∙ မြန်မာဘာသာ ∙ norsk bokmål ∙ Plattdüütsch ∙ Nederlands ∙ norsk nynorsk ∙ norsk ∙ occitan ∙ polski ∙ prūsiskan ∙ português ∙ português do Brasil ∙ română ∙ русский ∙ sicilianu ∙ Scots ∙ slovenčina ∙ slovenščina ∙ српски / srpski ∙ svenska ∙ தமிழ் ∙ ไทย ∙ Türkçe ∙ татарча / tatarça ∙ українська ∙ vèneto ∙ Tiếng Việt ∙ 中文 ∙ 中文（中国大陆） ∙ 中文（简体） ∙ 中文（繁體） ∙ 中文（马来西亚） ∙ 中文（新加坡） ∙ 中文（臺灣） ∙ +/−
New SVG image

Licensing

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.
Category:CC-BY-SA-3.0#Digits%20in%20largest%20prime%20by%20year%202014.png
Category:Self-published work Category:Charts Category:Prime numbers
Category:CC-BY-SA-3.0 Category:Charts Category:Prime numbers Category:Self-published work Category:Vector version available