%I A074791
%S A074791 6,18,20,21,33,42,54,63,66,77,100,110,120,156,162,189,198,272,294,336,
%T A074791 342,363,377,435,486,500,506,559,567,594,600,610,629,685,703,812,847,
%U A074791 880,924,930,957,1067,1166,1210,1243,1247,1287,1320,1332,1458,1590,1640
%N A074791 Numbers n such that n does not divide the denominator of the n-th Harmonic 
               number.
%C A074791 n such that A064169(n) is different from A027612(n)
%C A074791 Also n such that A096617(n) is different from A001008(n). - Alexander 
               Adamchuk (alex(AT)kolmogorov.com), Jun 26 2006
%F A074791 Is a(n) asymptotic to c*n^2 0.5<c<0.7 ?
%t A074791 Select[ Range[1700], Mod[ Denominator[ HarmonicNumber[ # ]], # ] != 0 
               &] (* Robert G. Wilson v *)
%Y A074791 Cf. A027612, A064169.
%Y A074791 Cf. A096617, A001008.
%Y A074791 Sequence in context: A097370 A074390 A045857 this_sequence A093106 A114452 
               A108762
%Y A074791 Adjacent sequences: A074788 A074789 A074790 this_sequence A074792 A074793 
               A074794
%K A074791 nonn
%O A074791 1,1
%A A074791 Benoit Cloitre (benoit7848c(AT)orange.fr), Sep 07 2002
%E A074791 Better description and more terms from Robert G. Wilson v (rgwv(at)rgwv.com), 
               Sep 28 2005