%I #14 Mar 31 2015 00:46:30
%S 0,2,2,2,3,2,2,3,3,2,2,4,4,2,5,4,2,3,7,4,4,3,3,2,5,3,5,2,3,6,6,3,3,5,
%T 5,7,3,3,4,3,3,4,4,5,3,5,7,3,5,6,6,5,4,5,2,6,4,6,4,4,7,6,5,5,6,9
%N a(n) = number of distinct prime divisors of A104759(n).
%C Indices where number 1 occured in this sequence see A138790
%t lst = {}; Do[lst = Join[lst, IntegerDigits[n]], {n, 1, 50}]; Table[Length[FactorInteger[FromDigits[Reverse[lst[[Range[1,n]]]]]]], {n, 1, Length[lst]}] (* _Robert Price_, Mar 24 2015 *)
%Y Cf. A000422, A116504, A007908, A116505, A007878, A138787.
%K nonn,base
%O 1,2
%A _Artur Jasinski_, Mar 30 2008
%E Entire sequence corrected by _Robert Price_, Mar 24 2015
|