%I A083164
%S A083164 1,3,2,4,9,6,13,8,15,7,10,20,12,11,18,16,33,27,37,36,5,30,22,28,40,62,
%T A083164 63,24,57,14,61,32,53,31,47,66,73,35,102,52,81,43,42,84,45,112,46,56,
%U A083164 133,90,117,74,105,99,145,48,17,55,58,60,121,59,153,64,108,93,200,132
%N A083164 Rearrangement of natural numbers such that n divides sum of the terms 
               with index which are the divisors of n.
%C A083164 a(n) = (smallest multiple larger than the sum of the terms with index 
               which are the divisors (<n) of n) - (The sum of the terms with index 
               which are the divisors( <n ) of n) if the resulting number is not 
               alredy included, else go for the next larger multiple.
%e A083164 9 divides a(1) + a(3) + a(9) = 1 + 2 + 15 = 18.
%o A083164 (PARI) A = vector(105); used = vector(400); for (n = 1, 105, d = divisors(n); 
               c = numdiv(n); s = 0; for (i = 1, c - 1, s += A[d[i]]); x = n - s%n; 
               while (used[x], x += n); A[n] = x; used[x] = 1; write("A083165.txt", 
               (x + s)/n)); write("A083164.txt", A)
%Y A083164 Cf. A083165, A083166.
%Y A083164 Sequence in context: A019916 A099257 A083762 this_sequence A094962 A084793 
               A033820
%Y A083164 Adjacent sequences: A083161 A083162 A083163 this_sequence A083165 A083166 
               A083167
%K A083164 nonn
%O A083164 1,2
%A A083164 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 25 2003
%E A083164 More terms from David Wasserman (wasserma(AT)spawar.navy.mil), Oct 22 
               2004