Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

A116505 revision #15


A116505
Number of distinct prime divisors of the concatenation of 1..n.
18
0, 2, 2, 2, 3, 3, 2, 4, 3, 3, 6, 4, 3, 3, 3, 3, 4, 5, 6, 6, 8, 6, 4, 5, 4, 6, 5, 5, 4, 7, 3, 5, 6, 2, 7, 5, 4, 4, 6, 8, 5, 7, 4, 4, 9, 7, 5, 7, 6, 9, 3, 3, 4, 9, 5, 4, 6, 4, 4, 6, 3, 7, 4, 9, 6, 8, 3, 7, 7, 6, 5, 5, 3, 9, 5, 4, 5, 6, 6, 7, 4, 7, 6, 3, 5, 7, 6, 5, 9, 8, 6, 6, 7, 5, 6, 5, 2, 9, 5, 9
OFFSET
1,2
COMMENTS
Dario Alpern's factorization program was used for n > 43.
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)), ", "))}
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
reviewed