Search: id:A126793
Results 1-1 of 1 results found.

%I A126793
%S A126793 1,1,2,2,3,3,5,5,7,8,11,11,16,16,21,22,28,28,36,36,45,47,58,58,72,73,89,
%T A126793 92,110,110,137,137,161,166,194,195,232,232,268,276,317,317,371,371,423,
%U A126793 435,493,493,568,569,643,657,738,738,843,846,948,966,1076,1076,1219,1219
%N A126793 a(1)=1. a(n+1) = sum{k|n} floor(a(k)/a(n/k)).
%H A126793 Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> 
               (listed in lieu of email address)
%e A126793 a(13) = sum{k|12} [a(k)/a(12/k)] = [a(1)/a(12)] + [a(2)/a(6)] + [a(3)/
               a(4)] + [a(4)/
%e A126793 a(3)] + [a(6)/a(2)] + [a(12)/a(1)] = [1/11] + [1/3] + [2/2] + [2/2] + 
               [3/1] + [11/1] = 0 +0 +1 +1 +3 +11 = 16.
%t A126793 f[l_List] := Block[{n = Length[l], d = Divisors[n]},Append[l, Sum[ Floor[l[[d[[k]]]]/
               l[[n/d[[k]]]]], {k, Length[d]}]]];Nest[f, {1}, 61] (*Chandler*)
%Y A126793 Sequence in context: A096765 A025147 A032230 this_sequence A069910 A008484 
               A026797
%Y A126793 Adjacent sequences: A126790 A126791 A126792 this_sequence A126794 A126795 
               A126796
%K A126793 nonn
%O A126793 1,3
%A A126793 Leroy Quet Feb 20 2007
%E A126793 Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Mar 03 2007

Search completed in 0.001 seconds