A109829 - OEIS

%I #5 Jan 27 2019 11:15:02

%S 2,2,2,2,2,2,2,3,3,2,2,3,3,3,2,2,3,2,2,2,2,2,3,2,2,3,2,2,2,3,2,3,2,3,

%T 3,2,2,2,3,2,2,2,2,2,2,2,2,2

%N Number of distinct prime factors of 149 - (n-th prime power less than 149).

%C a(n) > 1: A071331(2) = 149, A071330(149) = 0.

%F a(n) = 149 - A000961(n) for n <= 48.

%t Join[{2},PrimeNu/@(149-Select[Range[0,148],PrimePowerQ])] (* _Harvey P. Dale_, Jan 27 2019 *)

%K nonn,fini,full

%O 1,1

%A _Reinhard Zumkeller_, Jul 04 2005