OFFSET
1,2
COMMENTS
Dario Alpern's factorization program was used for n > 43.
LINKS
EXAMPLE
123456 = 2*2*2*2*2*2*3*643, with distinct prime divisors 2, 3 and 643. Hence, a(6) = 3.
MATHEMATICA
Table[PrimeNu[FromDigits[Flatten[IntegerDigits[Range[n]]]]], {n, 30}] (* Jan Mangaldan, Jul 07 2020 *)
PROG
(PARI) {a=""; for(n=1, 43, a=concat(a, n); print1(omega(eval(a)), ", "))}
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Parthasarathy Nambi, Mar 20 2006
EXTENSIONS
Edited and extended by Klaus Brockhaus, Mar 29 2006
Terms 59-100 from Sean A. Irvine, Nov 04 2009
STATUS
approved