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