cp's OEIS Frontend

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

%I A177226 #16 Apr 10 2024 03:32:49
%S A177226 1,2,1,3,4,1,4,2,4,1,6,3,9,5,1,7,10,9,12,4,1,9,13,16,4,13,16,1,10,5,6,
%T A177226 11,9,7,4,1,12,6,13,9,2,12,18,16,1,15,22,20,5,13,25,7,9,6,1,16,8,2,16,
%U A177226 1,8,16,4,8,4,1,19,28,7,11,3,10,33,36,30,34,27,1,21,31,18,25,40,10,16,4,31,37,40,16,1
%N A177226 Triangle read by rows: T(n, k) = 2^(prime(n) - prime(k)) mod prime(n), 1 <= k <= n.
%H A177226 G. C. Greubel, <a href="/A177226/b177226.txt">Rows n = 1..50 of the triangle, flattened</a>
%F A177226 From _G. C. Greubel_, Apr 09 2024: (Start)
%F A177226 T(n, 1) = A111333(n).
%F A177226 T(n, 2) = A292411(n). (End)
%e A177226 Triangle begins:
%e A177226    1;
%e A177226    2,  1;
%e A177226    3,  4,  1;
%e A177226    4,  2,  4,  1;
%e A177226    6,  3,  9,  5,  1;
%e A177226    7, 10,  9, 12,  4,  1;
%e A177226    9, 13, 16,  4, 13, 16,  1;
%e A177226   10,  5,  6, 11,  9,  7,  4,  1;
%e A177226   12,  6, 13,  9,  2, 12, 18, 16,  1;
%t A177226 Flatten[Table[PowerMod[2,Prime[n]-Prime[k],Prime[n]],{n,20},{k,n}]] (* _Harvey P. Dale_, May 10 2014 *)
%o A177226 (Magma)
%o A177226 A177226:= func< n,k | Modexp(2, NthPrime(n) - NthPrime(k), NthPrime(n)) >;
%o A177226 [A177226(n,k): k in [1..n], n in [1..12]]; // _G. C. Greubel_, Apr 09 2024
%o A177226 (SageMath)
%o A177226 def A177226(n,k): return pow(2, nth_prime(n) - nth_prime(k), nth_prime(n))
%o A177226 flatten([[A177226(n,k) for k in range(1,n+1)] for n in range(1,13)]) # _G. C. Greubel_, Apr 09 2024
%Y A177226 Cf. A000079, A111333, A173655, A174497, A174947, A174996, A292411.
%K A177226 nonn,tabl
%O A177226 1,2
%A A177226 _Juri-Stepan Gerasimov_, Dec 10 2010
%E A177226 Corrected by _D. S. McNeil_, Dec 10 2010