pp = 10^6400 - 10^6352 - 1
PrimeQ[pp]
True
Length@Characters@ToString[pp]
6400
Position[Characters@ToString[pp], "8"]
{{48}}
Para aprender más sobre Mathematica ingrese aquí sitio de aprendizaje de Wolfram o en mi website ustamathematica.wixsite.com/basicas
Para aprender más sobre Mathematica ingrese aquí sitio de aprendizaje de Wolfram o en mi website ustamathematica.wixsite.com/basicas
No hay comentarios.:
Publicar un comentario