Original entry on oeis.org
1, 4, 2, 6, 3, 3, 12, 8, 4, 4, 10, 5, 5, 5, 5, 24, 18, 12, 6, 6, 6, 14, 7, 7, 7, 7, 7, 7, 32, 24, 16, 16, 8, 8, 8, 8, 27, 18, 18, 9, 9, 9, 9, 9, 9, 40, 30, 20, 20, 20, 10, 10, 10, 10, 10, 22, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 72, 60, 48, 36, 24, 24, 12, 12, 12, 12, 12, 12
Offset: 1
First few rows of the triangle =
1;
4, 2;
6, 3, 3;
12, 8, 4, 4;
10, 5, 5, 5, 5;
24, 18, 12, 6, 6, 6;
14, 7, 7, 7, 7, 7, 7;
Row 4 = (12, 8, 4, 4) since row 4 of triangle A127446 = (4, 4, 0, 4).
A127447
Triangle defined by the matrix product A127446 * A054521, read by rows 1<=k<=n.
Original entry on oeis.org
1, 4, 0, 6, 3, 0, 12, 0, 4, 0, 10, 5, 5, 5, 0, 24, 6, 0, 0, 6, 0, 14, 7, 7, 7, 7, 7, 0, 32, 0, 16, 0, 8, 0, 8, 0, 27, 18, 0, 9, 9, 0, 9, 9, 0, 40, 10, 20, 10, 0, 0, 10, 0, 10, 0, 22, 11, 11, 11, 11, 11, 11, 11, 11, 11, 0, 72, 12, 12, 0, 24, 0
Offset: 1
First few rows of the triangle are:
1;
4, 0;
6, 3, 0;
12, 0, 4, 0;
10, 5, 5, 5, 0;
24, 6, 0, 0, 6, 0;
14, 7, 7, 7, 7, 7, 0;
32, 0, 16, 0, 8 0, 8, 0;
...
-
A054521 := proc(n, k) if igcd(n,k) = 1 then 1; else 0; fi; end:
A127447 := proc(n,k)
add( A127446(n,j)*A054521(j,k),j=k..n) ;
end proc:
seq(seq(A127447(n,m),m=1..n),n=1..12) ; # R. J. Mathar, Nov 08 2011
Original entry on oeis.org
1, 3, 2, 6, 2, 3, 10, 6, 3, 4, 15, 6, 3, 4, 5, 21, 12, 9, 4, 5, 6, 28, 12, 9, 4, 5, 6, 7, 36, 20, 9, 12, 5, 6, 7, 8, 45, 20, 18, 12, 5, 6, 7, 8, 9, 55, 30, 18, 12, 15, 6, 7, 8, 9, 10, 66, 30, 18, 12, 15, 6, 7, 8, 9, 10, 11, 78, 42, 30, 24, 15, 18, 7, 8, 9, 10, 11, 12
Offset: 1
First few rows of the triangle:
1;
3, 2;
6, 2, 3;
10, 6, 3, 4;
15, 6, 3, 4, 5;
21, 12, 9, 4, 5, 6;
28, 12, 9, 4, 5, 6, 7;
36, 20, 9, 12, 5, 6, 7, 8;
...
Duplicate a(11)-a(15) terms removed by
Mats Granvik, Feb 26 2021
A126988
Triangle read by rows: T(n,k) = n/k if k is a divisor of n; T(n,k) = 0 if k is not a divisor of n (1 <= k <= n).
Original entry on oeis.org
1, 2, 1, 3, 0, 1, 4, 2, 0, 1, 5, 0, 0, 0, 1, 6, 3, 2, 0, 0, 1, 7, 0, 0, 0, 0, 0, 1, 8, 4, 0, 2, 0, 0, 0, 1, 9, 0, 3, 0, 0, 0, 0, 0, 1, 10, 5, 0, 0, 2, 0, 0, 0, 0, 1, 11, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 12, 6, 4, 3, 0, 2, 0, 0, 0, 0, 0, 1
Offset: 1
First few rows of the triangle are:
1;
2, 1;
3, 0, 1;
4, 2, 0, 1;
5, 0, 0, 0, 1;
6, 3, 2, 0, 0, 1;
7, 0, 0, 0, 0, 0, 1;
8, 4, 0, 2, 0, 0, 0, 1;
9, 0, 3, 0, 0, 0, 0, 0, 1;
10, 5, 0, 0, 2, 0, 0, 0, 0, 1;
...
sigma(12) = A000203(n) = 28.
sigma(12) = 28, from 12th row = (12 + 6 + 4 + 3 + 2 + 1), deleting the zeros, from left to right.
For n = 6 the partitions of 6 into equal parts are [6], [3,3], [2,2,2], [1,1,1,1,1,1], so the number of k's are [6, 3, 2, 0, 0, 1] respectively, equaling the 6th row of triangle. - _Omar E. Pol_, Nov 25 2019
- David Wells, "Prime Numbers, the Most Mysterious Figures in Math", John Wiley & Sons, Inc, 2005, Appendix B.
-
a126988 n k = a126988_tabl !! (n-1) !! (k-1)
a126988_row n = a126988_tabl !! (n-1)
a126988_tabl = zipWith (zipWith (*)) a010766_tabl a051731_tabl
-- Reinhard Zumkeller, Jan 20 2014
-
[[(n mod k) eq 0 select n/k else 0: k in [1..n]]: n in [1..12]]; // G. C. Greubel, May 29 2019
-
A126988:=proc(n,k) if type(n/k, integer)=true then n/k else 0 fi end: for n from 1 to 12 do seq(A126988(n,k),k=1..n) od; # yields sequence in triangular form - Emeric Deutsch, Jan 17 2007
-
Table[If[Mod[n, m]==0, n/m, 0], {n,1,12}, {m,1,n}]//Flatten (* Roger L. Bagula, Sep 06 2008, simplified by Franklin T. Adams-Watters, Aug 24 2011 *)
-
{T(n,k) = if(n%k==0, n/k, 0)}; \\ G. C. Greubel, May 29 2019
-
def T(n, k):
if (n%k==0): return n/k
else: return 0
[[T(n, k) for k in (1..n)] for n in (1..12)] # G. C. Greubel, May 29 2019
Showing 1-4 of 4 results.
Comments