%I A073545
%S A073545 1,2,6,25,54,243,1204,3549,19544,81829,104663,663490,743764,7925355
%N A073545 Least k such that 1/tau(k) + 1/tau(k+1) + 1/tau(k+2) + ... + 1/tau(k+n) 
               is equal to 1 (where tau(k)=A000005(k) is the number of divisors 
               of k).
%e A073545 a(2)=6 because 1/tau(6)+1/tau(7)+1/tau(8) = 1/4+1/2+1/4 = 1.
%t A073545 a[n_] := For[k=1, True, k++, If[Sum[1/DivisorSigma[0, k+i], {i, 0, n}]==1, 
               Return[k]]]
%Y A073545 Sequence in context: A089718 A123150 A086591 this_sequence A103063 A030228 
               A066317
%Y A073545 Adjacent sequences: A073542 A073543 A073544 this_sequence A073546 A073547 
               A073548
%K A073545 nonn
%O A073545 0,2
%A A073545 Benoit Cloitre (benoit7848c(AT)orange.fr), Aug 27 2002
%E A073545 Edited by Dean Hickerson (dean.hickerson(AT)yahoo.com), Sep 03 2002
%E A073545 2 more terms from Ryan Propper (rpropper(AT)stanford.edu), Sep 04 2005