A027750 Triangle read by rows in which row n lists the divisors of n.
1, 1, 2, 1, 3, 1, 2, 4, 1, 5, 1, 2, 3, 6, 1, 7, 1, 2, 4, 8, 1, 3, 9, 1, 2, 5, 10, 1, 11, 1, 2, 3, 4, 6, 12, 1, 13, 1, 2, 7, 14, 1, 3, 5, 15, 1, 2, 4, 8, 16, 1, 17, 1, 2, 3, 6, 9, 18, 1, 19, 1, 2, 4, 5, 10, 20, 1, 3, 7, 21, 1, 2, 11, 22, 1, 23, 1, 2, 3, 4, 6, 8, 12, 24, 1, 5, 25, 1, 2, 13, 26, 1, 3, 9, 27, 1, 2, 4, 7, 14, 28, 1, 29
Offset: 1
Examples
Triangle begins: 1; 1, 2; 1, 3; 1, 2, 4; 1, 5; 1, 2, 3, 6; 1, 7; 1, 2, 4, 8; 1, 3, 9; 1, 2, 5, 10; 1, 11; 1, 2, 3, 4, 6, 12; ... 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 parts are [1, 2, 3, 6] respectively, the same as the divisors of 6. - _Omar E. Pol_, Nov 20 2019
Links
- Franklin T. Adams-Watters, Rows 1..1000, flattened
- Franklin T. Adams-Watters, Rows 1..10000
- Peter Luschny, A Python program using gcd for n >= 0.
- Omar E. Pol, Illustration of initial terms, (2009).
- Eric Weisstein's World of Mathematics, Divisor
- Wikipedia, Table of divisors
- Index entries for sequences related to divisors of numbers
Crossrefs
Programs
-
Haskell
a027750 n k = a027750_row n !! (k-1) a027750_row n = filter ((== 0) . (mod n)) [1..n] a027750_tabf = map a027750_row [1..] -- Reinhard Zumkeller, Jan 15 2011, Oct 21 2010
-
Magma
[Divisors(n) : n in [1..20]];
-
Maple
seq(op(numtheory:-divisors(a)), a = 1 .. 20) # Matt C. Anderson, May 15 2017
-
Mathematica
Flatten[ Table[ Flatten [ Divisors[ n ] ], {n, 1, 30} ] ]
-
PARI
v=List();for(n=1,20,fordiv(n,d,listput(v,d)));Vec(v) \\ Charles R Greathouse IV, Apr 28 2011
-
Python
from sympy import divisors for n in range(1, 16): print(divisors(n)) # Indranil Ghosh, Mar 30 2017
Formula
T(n,k) = n / A056538(n,k) = A056538(n,n-k+1), 1 <= k <= A000005(n). - Reinhard Zumkeller, Sep 28 2014
Extensions
More terms from Scott Lindhurst (ScottL(AT)alumni.princeton.edu)
Comments