Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A109829
Number of distinct prime factors of 149 - (n-th prime power less than 149).
2
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, 3, 2, 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2
OFFSET
1,1
COMMENTS
a(n) > 1: A071331(2) = 149, A071330(149) = 0.
FORMULA
a(n) = 149 - A000961(n) for n <= 48.
MATHEMATICA
Join[{2}, PrimeNu/@(149-Select[Range[0, 148], PrimePowerQ])] (* Harvey P. Dale, Jan 27 2019 *)
CROSSREFS
Sequence in context: A139326 A029243 A306240 * A054125 A177227 A174373
KEYWORD
nonn,fini,full
AUTHOR
Reinhard Zumkeller, Jul 04 2005
STATUS
approved