OFFSET
1,1
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
KEYWORD
nonn,fini,full
AUTHOR
Reinhard Zumkeller, Jul 04 2005
STATUS
approved