|
%I #17 Oct 27 2021 15:01:29
%S 0,1,0,1,2,0,1,2,2,0,1,2,1,4,0,1,2,0,0,0,0,1,2,6,3,1,6,0,1,2,6,0,0,0,
%T 0,0,1,2,6,6,3,0,0,0,0,1,2,6,4,0,0,0,0,0,0,1,2,6,2,10,5,2,5,1,10,0,1,
%U 2,6,0,0,0,0,0,0,0,0,0,1,2,6,11,3,5,9,7,11,6,1,12,0,1,2,6,10,8,6,0,0,0,0,0
%N Triangle T(n, k) = k! mod n for n >= 1, 1 <= k <= n.
%H Harry J. Smith, <a href="/A062169/b062169.txt">Table of n, a(n) for n=1..1275</a>
%e a(7,4) = 4! mod 7 = 24 mod 7 = 3. Rows are:
%e 0;
%e 1,0;
%e 1,2,0;
%e 1,2,2,0;
%e 1,2,1,4,0;
%e 1,2,0,0,0,0;
%e 1,2,6,3,1,6,0;
%e 1,2,6,0,0,0,0,0;
%e 1,2,6,6,3,0,0,0,0;
%e 1,2,6,4,0,0,0,0,0,0;
%t Table[Mod[Range[n]!, n], {n, 1, 15}] // Flatten (* _Jean-François Alcover_, Oct 25 2013 *)
%o (PARI) { n=0; for (k=1, 50, for (m=1, k, write("b062169.txt", n++, " ", m!%k)) ) } \\ _Harry J. Smith_, Aug 02 2009
%Y First zero in each row is when k=A002034. Maximum value in each row is A062170. Number of distinct values in each row is A038203. Cf. A000142, A048158, A051127.
%K nonn,tabl
%O 1,5
%A _Henry Bottomley_, Jun 11 2001
%E Definition amended by _Georg Fischer_, Oct 27 2021
|
