login
Triangle read by rows: T(n, k) = k / gcd(k, n), 1 <= k <= n.
8

%I #17 Sep 20 2022 14:23:36

%S 1,1,1,1,2,1,1,1,3,1,1,2,3,4,1,1,1,1,2,5,1,1,2,3,4,5,6,1,1,1,3,1,5,3,

%T 7,1,1,2,1,4,5,2,7,8,1,1,1,3,2,1,3,7,4,9,1,1,2,3,4,5,6,7,8,9,10,1,1,1,

%U 1,1,5,1,7,2,3,5,11,1,1,2,3,4,5,6,7,8,9,10,11,12,1

%N Triangle read by rows: T(n, k) = k / gcd(k, n), 1 <= k <= n.

%C Also the gcd of the coefficients of the partition polynomials (called 'De Moivre polynomials' by O'Sullivan, see link, Theorem 4.1). - _Peter Luschny_, Sep 20 2022

%H Indranil Ghosh, <a href="/A164306/b164306.txt">Rows 1..120 of triangle, flattened</a>.

%H Cormac O'Sullivan, <a href="https://arxiv.org/abs/2203.02868">De Moivre and Bell polynomials</a>, arXiv:2203.02868 [math.CO], 2022.

%F Sum of n-th row = A057661(n).

%F T(n, k) = A051537(n, k)/A054531(n, k). - _Reinhard Zumkeller_, Oct 30 2009

%e From _Indranil Ghosh_, Feb 14 2017: (Start)

%e Triangle begins:

%e 1,

%e 1, 1,

%e 1, 2, 1,

%e 1, 1, 3, 1,

%e 1, 2, 3, 4, 1,

%e 1, 1, 1, 2, 5, 1,

%e 1, 2, 3, 4, 5, 6, 1,

%e . . .

%e T(4,3) = 3 / gcd(3,4) = 3 / 1 = 3. (End)

%p seq(seq(k / igcd(n, k), k = 1..n), n = 1..13); # _Peter Luschny_, Sep 20 2022

%t Flatten[Table[k/GCD[k,n],{n,20},{k,n}]] (* _Harvey P. Dale_, Jul 21 2013 *)

%o (PARI) for(n=0,10, for(k=1,n, print1(k/gcd(k,n), ", "))) \\ _G. C. Greubel_, Sep 13 2017

%Y Cf. A051537, A054531, A057661, A167192.

%K nonn,tabl

%O 1,5

%A _Reinhard Zumkeller_, Aug 12 2009