This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A132442 #36 Dec 21 2022 08:19:19 %S A132442 1,1,3,1,1,4,1,3,1,7,1,1,1,1,6,1,3,4,3,1,12,1,1,1,1,1,1,8,1,3,1,7,1,3, %T A132442 1,15,1,1,4,1,1,4,1,1,13,1,3,1,3,6,3,1,3,1,18,1,1,1,1,1,1,1,1,1,1,12, %U A132442 1,3,4,7,1,12,1,7,4,3,1,28,1,1,1,1,1,1,1,1,1,1,1,1,14,1,3,1,3,1,3,8,3,1,3,1,3,1,24 %N A132442 Triangle whose n-th row consists of the first n terms of the n-th row of A134866. %C A132442 Previous name: Triangle, n-th row = first n terms of n-th row of an array formed by A051731 * A127093 (transform). %C A132442 Right border = sigma(n), A000203. %C A132442 Row sums = A038040. %C A132442 The function T(n,k) = T(k,n) is defined for k > n, but only the values of k in 1..n as a triangular array are listed here. %H A132442 Reinhard Zumkeller, <a href="/A132442/b132442.txt">Rows n = 1..125 of triangle, flattened</a> %F A132442 T(n,k) = A000203(gcd(n,k)). - _Reinhard Zumkeller_, Dec 12 2015 %e A132442 First few rows of the A134866 array: %e A132442 1, 1, 1, 1, 1, 1, 1, ... %e A132442 1, 3, 1, 3, 1, 3, 1, ... %e A132442 1, 1, 4, 1, 1, 4, 1, ... %e A132442 1, 3, 1, 7, 1, 3, 1, ... %e A132442 1, 1, 1, 1, 6, 1, 1, ... %e A132442 1, 3, 4, 3, 1, 12, 1, ... %e A132442 ... %e A132442 First few rows of the triangle: %e A132442 1; %e A132442 1, 3; %e A132442 1, 1, 4; %e A132442 1, 3, 1, 7; %e A132442 1, 1, 1, 1, 6; %e A132442 1, 3, 4, 3, 1, 12; %e A132442 1, 1, 1, 1, 1, 1, 8; %e A132442 1, 3, 1, 7, 1, 3, 1, 15; %e A132442 ... %t A132442 T[ n_, k_] := If[ n < 1 || k < 1, 0, If[ k > n, T[ k, n], If[ k == 1, 1, If[ n > k, T[ k, Mod[ n, k, 1]], DivisorSigma [1, n]]]]] (* _Michael Somos_, Jul 18 2011 *) %o A132442 (PARI) {T(n, k) = if( n<1 || k<1, 0, if( k>n, T(k, n), if( k==1, 1, if( n>k, T(k, (n-1)%k+1), sigma( n)))))} /* _Michael Somos_, Jul 18 2011 */ %o A132442 (Haskell) %o A132442 a132442 n k = a132442_tabl !! (n-1) !! (k-1) %o A132442 a132442_row n = a132442_tabl !! (n-1) %o A132442 a132442_tabl = map (map a000203) a050873_tabl %o A132442 -- _Reinhard Zumkeller_, Dec 12 2015 %Y A132442 Cf. A051731, A127093. %Y A132442 Cf. A038040 (row sums), A000203 (right border), A050873 (gcd(n,k)). %Y A132442 Cf. A000142 (determinant). %Y A132442 Cf. A134866. %K A132442 nonn,tabl %O A132442 1,3 %A A132442 _Gary W. Adamson_, Nov 14 2007 %E A132442 Missing T(10,9) = 1 inserted by _Reinhard Zumkeller_, Dec 12 2015 %E A132442 Name edited by _Michel Marcus_, Dec 21 2022