%I A048689
%S A048689 1,2,2,2,3,3,3,3,3,5,5,5,5,5,5,5,5,5,5,7,7,8,7,7,7,8,8,8,8,9,8,9,9,10,
%T A048689 9,10,11,10,10,11,9,10,11,11,12,12,12,12,10,12,11,12,13,11,13,14,13,12,
%U A048689 12,13,13,14,11,14,13,14,14,12,13,16,15,14,14,15,14,16,13,17,15,14,16
%N A048689 Number of classes generated by function A001222 when applied to binomial 
               coefficients.
%F A048689 a(n) = Length[ Union[ Table[ A001222[ binomial[ n, k ] ], {k, 0, n} ] 
               ] ]
%e A048689 For n=9 A001222({C(9,k)})={0,2,4,4,4,4,4,4,2,0} includes 3 distinct values 
               so generating 3 classes of k values: {0,9},{1,8} and {2,3,4,5,6,7}. 
               So a(9)=3
%Y A048689 A000005, A001221, A007947, A001222.
%Y A048689 Sequence in context: A127240 A097561 A162345 this_sequence A069923 A095840 
               A131343
%Y A048689 Adjacent sequences: A048686 A048687 A048688 this_sequence A048690 A048691 
               A048692
%K A048689 nonn
%O A048689 1,2
%A A048689 Labos E. (labos(AT)ana.sote.hu)