A113773 Number of distinct prime factors of A008352.
1, 2, 2, 3, 3, 5, 2, 5, 6, 9, 5, 7
Offset: 1
Examples
The number of distinct prime factors of 212 is 2 which is the third term in the sequence.
Crossrefs
Cf. A008352.
Programs
-
Maple
catL := proc(a,b) a*10^(max(1,ilog10(b)+1))+b ; end: A008352 := proc(n) option remember ; if n <= 1 then n+1 ; else catL( A008352(n-2),A008352(n-1)) ; fi ; end: A113773 := proc(n) nops( numtheory[factorset](A008352(n))) ; end: for n from 1 do print(A113773(n)) ; od: # R. J. Mathar, Feb 06 2008
Extensions
More terms from Sean A. Irvine, Feb 22 2011
Comments