2 lines
202 B
Text
2 lines
202 B
Text
StringForm["`` count: `` frequency: ``", Rule@@ #[[1]], StringPadLeft[ToString@ #[[2]], 8], PercentForm[N@ #[[2]]/(10^8 -1)]]& /@
|
|
Sort[Tally[Partition[Mod[Prime[Range[10^8]], 10], 2, 1]]] // Column
|