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

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

Author

Reinhard Zumkeller, Jul 04 2005

Keywords

• nonn
• fini
• full

Comments

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

Programs

Mathematica

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

Formula

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