%I A126697
%S A126697 1,2,4,5,9,14,16,17,21,30,35,36,40,41,55,60,76,93,102,103,108,129,131,
%T A126697 132,136,141,143,152,166,167,197,198,214,215,232,267,303,304,306,307,
%U A126697 347,388,409,410,414,423,425,426,442,443,448,465,469,470,479,534,548
%N A126697 a(0)=1. For n>=1, a(n) = a(n-1) + (largest divisor of n which occurs 
               among the earlier terms of the sequence).
%H A126697 Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> 
               (listed in lieu of email address)
%t A126697 f[l_List] := Append[l, l[[ -1]] + Max @@ Intersection[l, Divisors[Length[l]]]];
               Nest[f, {1}, 60] (*Chandler*)
%Y A126697 Cf. A123090.
%Y A126697 Sequence in context: A068370 A060167 A118550 this_sequence A162406 A129282 
               A073153
%Y A126697 Adjacent sequences: A126694 A126695 A126696 this_sequence A126698 A126699 
               A126700
%K A126697 nonn
%O A126697 0,2
%A A126697 Leroy Quet Feb 15 2007
%E A126697 Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Feb 19 2007