OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
EXAMPLE
143 is in the sequence because it has two unique prime factors (11 and 13), the same number as its two nearest neighbors on both sides (141 has 3 and 47, 142 has 2 and 71, 144 has 2 and 3 and 145 has 5 and 29).
MATHEMATICA
For[i=2, i<10000, If[And[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]]], Print[i]]; i++ ]
Select[Range[600000], PrimeNu[# - 2] == PrimeNu[# - 1] == PrimeNu[#] == PrimeNu[# + 1] == PrimeNu[# + 2] &] (* G. C. Greubel, May 15 2017 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Neil Fernandez, Dec 21 2004
EXTENSIONS
Edited by N. J. A. Sloane, Mar 17 2007
STATUS
approved