Patrick Laroche (35 años, Ocala, Florida) es el nuevo afortunado voluntario del proyecto GIMPS (Great Internet Mersenne Prime Search) que recibirá 3000 dólares como premio. Su ordenador encontró el pasado 7 de diciembre de 2018 el primo más grande conocido hasta ahora, el quincuagésimo primer (51º) primo de Mersenne, que genera el quincuagésimo primer número perfecto. Este número tiene 24 862 048 dígitos y su verificación concluyó el 21 de diciembre. El éxito del proyecto GIMPS se apoya en los miles de voluntarios que dedican tiempo de sus ordenadores personales a verificar la primalidad de los sucesivos candidatos a primos de Mersenne. ¿Te apuntas a este proyecto?
El nuevo número primo es 282 589 933−1 y el nuevo número perfecto es 282 589 932×(282 589 933−1). El proyecto GIMPS se inició en 1996 y usa el software Prime95 desarrollado por su fundador George Woltman; hoy se usa la red PrimeNet desarrollada por Scott Kurowski y coordinada por Aaron Blosser. GIMPS ha encontrado todos los primos de Mersenne desde el trigésimo quinto (35º) al quincuagésimo primero (51º).
La nota de prensa es «GIMPS Discovers Largest Known Prime Number: M82589933,» GIMPS, 21 Dec 2018; «51st Known Mersenne Prime Found!» GIMPS, 21 Dec 2018. Por cierto, el árbol de Navidad está dibujado con el número primo de 912 dígitos (me he enterado gracias a Mauricio Zapata @mezvan). Puedes verificar que es primo, por ejemplo, en Mathematica con:
PrimeQ[
2018111111111111111111111111111111111111111111111111111166111111111111\
1111111111111111111111186801111111111111111111111111111111118886301111\
1111111111111111111111111116886358611111111111111111111111111111803608\
0883611111111111111111111111119338683889866811111111111111111111111111\
1635088001111111111111111111111111111180656088561111111111111111111111\
1111186308080838611111111111111111111111158568808508685351111111111111\
1111111163555603885305338811111111111111111150638330838808080385831111\
1111111111835855885365385633600808801111111111111111111838358805558511\
1111111111111111111115688385885368536111111111111111111111883058388883\
8553631111111111111111118088853385306555868888111111111111118388686088\
8066566368806366111111111153855850368853868889806830083811111105588056\
6883886086806355803583885511111111111111111116853111111111111111111111\
1111111111111863311111111111111111111111111111111110356111111111111111\
11]
Y para verificarlo en Maxima, la entrada es:
factor(201811111111111111111111111111[852 dígitos]111111111035611111111111111111);
Y como salida da:
201811111111111111111111111111[852 dígitos]111111111035611111111111111111
para verifiarlo en máxima (usad de IDE wxmaxima) es
primep ( num );
Y da «true»
Las filas y columnas están arbitrariamente escogidas para que salga ese dibujo. De toda forma ¿verdad que da para un nuevo capítulo libre de Contact?
por cierto a parte que se la colado el compañero y ha confundido primep con factor en maxima (y es ctrol+intro para el resultado) si se desean ver digitos ocultados poner set_display (‘ascii)$
para volver a la pantalla normal poner set_display (‘xml)$
Estooo:
581 el 1
1 el 2
119 el 8
53 el 6
56 el 3
44 el 0
55 el 5
chorrada que me ha dado por hacer operaciones combinando a ver si salia primo alguna… y parece que no…
Por si tontería tonta:
Public Sub Main()
Dim Au As String
Dim X As Integer
Dim Y As Integer
Au = «201811111111111111111111111111111111111111111111111111116611111111111111111111111111111111111868011111111111111111111111111111111188863011111111111111111111111111111116886358611111111111111111111111111111803608088361111111111111111111111111933868388986681111111111111111111111111116350880011111111111111111111111111111806560885611111111111111111111111111186308080838611111111111111111111111158568808508685351111111111111111111116355560388530533881111111111111111115063833083880808038583111111111111118358558853653856336008088011111111111111111118383588055585111111111111111111111115688385885368536111111111111111111111883058388883855363111111111111111111808885338530655586888811111111111111838868608880665663688063661111111111538558503688538688898068300838111111055880566883886086806355803583885511111111111111111116853111111111111111111111111111111111186331111111111111111111111111111111111035611111111111111111»
X = 0
Y = 0
For X = 1 To Len(Au)
If Mid$(Au, X, 1) = «5» Then Y = Y + 1
Next
Print Y
End
Comparación rápida para entender el tamaño del número:
– Número de dígitos del primo: 24.862.068
– Número de caracteres del Quijote: 2.059.005
Es decir, si pones aproximadamente 12 libros del Quijote juntos podrías ver el número escrito.