Search: id:A132066 Results 1-1 of 1 results found. %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, Home Page (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 Search completed in 0.001 seconds