This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A113773 #11 Aug 09 2015 00:30:28 %S A113773 1,2,2,3,3,5,2,5,6,9,5,7 %N A113773 Number of distinct prime factors of A008352. %C A113773 a(13) >= 11. %e A113773 The number of distinct prime factors of 212 is 2 which is the third term in the sequence. %p A113773 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 %Y A113773 Cf. A008352. %K A113773 more,hard,nonn,base %O A113773 1,2 %A A113773 _Parthasarathy Nambi_, Jan 19 2006 %E A113773 More terms from _Sean A. Irvine_, Feb 22 2011