OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
EXAMPLE
6 is in the sequence because it has two unique prime factors (2 and 3) whereas 3, 4, 5, 7, 8 and 9 each have fewer.
MATHEMATICA
For[i=3, i<1000, If[And[Length[FactorInteger[i-3]] < Length[FactorInteger[i]], Length[FactorInteger[i-2]] < Length[FactorInteger[i]], Length[FactorInteger[i-1]] < Length[FactorInteger[i]], Length[FactorInteger[i+1]] < Length[FactorInteger[i]], Length[FactorInteger[i+2]] < Length[FactorInteger[i]], Length[FactorInteger[i+3]] < Length[FactorInteger[i]]], Print[i]]; i++]
Clear[noQ]; noQ[n_]:=And@@(#<Max[n]&/@Drop[n, {4}]); Off[Drop::normal]; Off[ Drop::seqs]; Flatten[Position[Partition[ PrimeNu[Range[1000]], 7, 1], _?noQ]]+ 3 (* Harvey P. Dale, Mar 05 2012 *)
Select[Range[650], PrimeNu[#] > Max[PrimeNu[# - 1], PrimeNu[# - 2], PrimeNu[# - 3], PrimeNu[# + 1], PrimeNu[# + 2], PrimeNu[# + 3]] &] (* G. C. Greubel, May 21 2017 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Neil Fernandez, Dec 21 2004
STATUS
approved