4 lines
132 B
Text
4 lines
132 B
Text
|
lPrimes[n_] := Select[Range[2, n], Length[RealDigits[1/#][[1, 1]]] == # - 1 &];
|
||
|
|
lPrimes[500]
|
||
|
|
Length /@ lPrimes /@ ( 250*2^Range[8])
|