cp's OEIS Frontend

A177806 Triangle read by rows: T(n,k) = prime(k)^(n-1) mod prime(n), 1 <= k <= n.

%I A177806 #18 Jun 29 2024 16:45:23
%S A177806 1,2,0,4,4,0,1,6,6,0,5,4,9,3,0,6,9,5,11,7,0,13,15,2,9,8,16,0,14,2,16,
%T A177806 7,11,10,5,0,3,6,16,12,8,2,18,9,0,19,21,4,20,2,5,17,11,7,0,1,25,5,25,
%U A177806 5,5,25,25,1,1,0,13,28,2,12,27,15,32,20,29,23,6,0,37,40,16,31,23,4,23,31,37,25,18,16,0
%N A177806 Triangle read by rows: T(n,k) = prime(k)^(n-1) mod prime(n), 1 <= k <= n.
%C A177806 First column is A175036.
%e A177806 Triangle begins:
%e A177806   1;
%e A177806   2, 0;
%e A177806   4, 4, 0;
%e A177806   1, 6, 6, 0;
%e A177806   5, 4, 9, 3, 0;
%p A177806 A177806 := proc(n,k) modp((ithprime(k))^(n-1), ithprime(n)) ; end proc:
%p A177806 seq(seq(A177806(n,k),k=1..n),n=1..15) ;
%t A177806 Table[PowerMod[Prime[Range[n]], n-1, Prime[n]], {n, 15}] (* _Paolo Xausa_, Jun 29 2024 *)
%Y A177806 Cf. A000079, A177226.
%K A177806 nonn,tabl
%O A177806 1,2
%A A177806 _Juri-Stepan Gerasimov_, Dec 12 2010