A320561 Irregular table read by rows: T(n,k) = (2*k+1)^(2*k+1) mod 2^n, 0 <= k <= 2^(n-1) - 1.
1, 1, 3, 1, 3, 5, 7, 1, 11, 5, 7, 9, 3, 13, 15, 1, 27, 21, 23, 9, 19, 29, 15, 17, 11, 5, 7, 25, 3, 13, 31, 1, 27, 53, 55, 9, 19, 61, 47, 17, 11, 5, 39, 25, 3, 13, 31, 33, 59, 21, 23, 41, 51, 29, 15, 49, 43, 37, 7, 57, 35, 45, 63
Offset: 1
Examples
Table starts 1, 1, 3, 1, 3, 5, 7, 1, 11, 5, 7, 9, 3, 13, 15, 1, 27, 21, 23, 9, 19, 29, 15, 17, 11, 5, 7, 25, 3, 13, 31, 1, 27, 53, 55, 9, 19, 61, 47, 17, 11, 5, 39, 25, 3, 13, 31, 33, 59, 21, 23, 41, 51, 29, 15, 49, 43, 37, 7, 57, 35, 45, 63, ...
Links
- Muniru A Asiru, Table of n, a(n) for n = 1..8191 (Rows n=1..13)
Crossrefs
Programs
-
GAP
T:= Flat(List([1..6],n->List([0..2^(n-1)-1],k->PowerMod(2*k+1,2*k+1,2^n)))); # Muniru A Asiru, Oct 23 2018
-
Mathematica
Table[PowerMod[(2 k + 1), (2 k + 1), 2^n], {n, 6}, {k, 0, 2^(n - 1) - 1}] // Flatten (* Michael De Vlieger, Oct 22 2018 *)
-
PARI
T(n,k) = lift(Mod(2*k+1, 2^n)^(2*k+1)) tabf(nn) = for(n=1, nn, for(k=0, 2^(n-1)-1, print1(T(n, k), ", ")); print);
Formula
T(n,k) = A320602(2^n, 2*k+1).
T(n,k) = 2^n - A321901(n,2^(n-1)-1-k). - Jianing Song, Nov 24 2018
Comments