OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
npQ[n_]:=Length[Union[Length[FactorInteger[#]]&/@Range[n, n+7]]]==1
Select[Range[125000], npQ] (* Harvey P. Dale, Feb 23 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Offset corrected by Amiram Eldar, Oct 26 2019
STATUS
approved