%I A132066
%S A132066 1,1,1,1,2,1,1,2,1,4,1,1,1,3,1,6,1,1,2,4,1,2,6,1,1,3,5,1,10,1,1,1,1,2,
6,
%T A132066 1,12,1,1,5,7,1,2,2,10,1,1,2,4,8,1,16,1,1,1,3,3,9,1,18,1,1,2,1,5,10,1,
2,
%U A132066 4,14,1,1,9,11,1,22,1,1,1,1,2,2,4,12,1,4,20,1,1,11,13,1,2,6,18,1,1,2,3
%N A132066 Irregular array: the sum of the first m terms of row n is the m-th positive
divisor of n.
%C A132066 Row n contains A000005(n) terms.
%H A132066 Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a>
(listed in lieu of email address)
%e A132066 The positive divisors of 20 are 1,2,4,5,10,20. Row 20 of the array is
1,1,2,1,5,10. So we have 1=1; 1+1=2; 1+1+2=4; 1+1+2+1=5; 1+1+2+1+5=10;
1+1+2+1+5+10=20.
%e A132066 The first 10 rows:
%e A132066 1;
%e A132066 1,1;
%e A132066 1,2;
%e A132066 1,1,2;
%e A132066 1,4;
%e A132066 1,1,1,3
%e A132066 1,6;
%e A132066 1,1,2,4;
%e A132066 1,2,6;
%e A132066 1,1,3,5
%t A132066 f[n_] := Block[{d},d = Divisors[n]; d - Prepend[Most[d], 0]]; Flatten[Array[f,
40]] (*Chandler*)
%Y A132066 Cf. A027750, A000005.
%Y A132066 Sequence in context: A071628 A033809 A046067 this_sequence A102190 A138650
A137843
%Y A132066 Adjacent sequences: A132063 A132064 A132065 this_sequence A132067 A132068
A132069
%K A132066 nonn,tabf
%O A132066 1,5
%A A132066 Leroy Quet, Oct 30 2007
%E A132066 Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Nov 01 2007
|