%I #18 Jun 29 2024 16:45:23

%S 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 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 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 Triangle read by rows: T(n,k) = prime(k)^(n-1) mod prime(n), 1 <= k <= n.

%C First column is A175036.

%e Triangle begins:

%e 1;

%e 2, 0;

%e 4, 4, 0;

%e 1, 6, 6, 0;

%e 5, 4, 9, 3, 0;

%p A177806 := proc(n,k) modp((ithprime(k))^(n-1), ithprime(n)) ; end proc:

%p seq(seq(A177806(n,k),k=1..n),n=1..15) ;

%t Table[PowerMod[Prime[Range[n]], n-1, Prime[n]], {n, 15}] (* _Paolo Xausa_, Jun 29 2024 *)

%Y Cf. A000079, A177226.

%K nonn,tabl

%O 1,2

%A _Juri-Stepan Gerasimov_, Dec 12 2010