OFFSET
2,1
COMMENTS
LINKS
Nathaniel Johnston, Rows n = 2..500, flattened
FORMULA
Let d_n be the sequence of divisors of n^2 that are less than n, in reverse order. Then T(n,k) = n*(n-d_n(k))/d_n(k). - Franklin T. Adams-Watters, Aug 07 2009
EXAMPLE
Row 6 is (3,6,12,30) because 6+3 = 9 divides 6*3 = 18, 6+6 = 12 divides 6*6 = 36, 6+12 = 18 divides 6*12 = 72 and 6+30 = 36 divides 6*30 = 180.
MAPLE
for n from 2 to 20 do for m from 1 to n*(n-1) do if(m*n mod (m+n) = 0)then printf("%d, ", m): fi: od: od: # Nathaniel Johnston, Jun 22 2011
MATHEMATICA
f[n_] := Select[Range[n^2], Mod[n*#, n + # ] == 0 &]; Table[f[n], {n, 2, 24}] // Flatten (* Ray Chandler, Feb 13 2007 *)
PROG
(PARI) arow(n)=local(d, m); d=divisors(n^2); vector(#d\2, k, m=d[ #d\2-k+1]; n*(n-m)/m) \\ Franklin T. Adams-Watters, Aug 07 2009
CROSSREFS
KEYWORD
nonn,easy,tabf
AUTHOR
Leroy Quet, Jan 26 2007
EXTENSIONS
Extended by Ray Chandler, Feb 13 2007
STATUS
approved