%I A095113
%S A095113 1,2,3,6,5,12,7,12,12,17,11,25,13,23,23,24,18,37,19,34,31,35,24,51,31,
%T A095113 41,36,46,29,66,32,49,47,54,48,78,38,60,55,68,42,91,43,70,69,72,48,103,
%U A095113 57,87,72,82,53,112,72,92,80,89,59,138,61,95,93,98,83,139,67,109,96,132
%N A095113 a(1)=1. a(n) is the sum of n/d over all divisors d of n which are among 
               a(1), ..., a(n-1).
%H A095113 Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> 
               (listed in lieu of email address)
%e A095113 The divisors of 8 are 1, 2, 4 and 8, of which only 1 and 2 occur among 
               a(1), ..., a(7), so a(8) = 8/1 + 8/2 = 12.
%t A095113 a[1]=1; a[n_]:=a[n]=Module[{as=a/@Range[n-1]}, Plus@@(If[MemberQ[as, 
               # ], n/#, 0]& /@ Divisors[n])]
%Y A095113 Sequence in context: A039653 A106379 A001634 this_sequence A002517 A053570 
               A129647
%Y A095113 Adjacent sequences: A095110 A095111 A095112 this_sequence A095114 A095115 
               A095116
%K A095113 nonn
%O A095113 1,2
%A A095113 Dean Hickerson (dean.hickerson(AT)yahoo.com), following a suggestion 
               of Leroy Quet May 28 2004