%I A076252
%S A076252 2310,3990,4290,6090,6270,10010,11550,12810,13650,17094,17940,18270,
%T A076252 19380,21930,22110,22770,23100,24990,25410,27300,28644,30090,32214,
%U A076252 32604,34034,34314,35340,35880,37310,38190,38570,38640,39270,39780
%N A076252 omega(n) = omega(n-1) + omega(n-2) + omega(n-3), where omega(n) is the 
               number of distinct prime factors of n.
%e A076252 omega(2310) = 5 = 1 + 2 + 2 = omega(2309) + omega(2308) + omega(2307), 
               so 2310 belongs to the sequence.
%t A076252 omega[n_] := Length[FactorInteger[n]]; a = {}; Do[If[omega[n] == omega[n 
               - 1] + omega[n - 2] + omega[n - 3], a = Append[a, n]], {n, 1, 10^5}]; 
               a
%Y A076252 Cf. A001221.
%Y A076252 Sequence in context: A051270 A046387 A136154 this_sequence A147572 A046303 
               A046403
%Y A076252 Adjacent sequences: A076249 A076250 A076251 this_sequence A076253 A076254 
               A076255
%K A076252 nonn
%O A076252 1,1
%A A076252 Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Nov 04 2002