%I #45 Apr 08 2021 07:38:06
%S 0,1,0,1,1,0,1,0,1,0,1,4,4,1,0,1,4,3,4,1,0,1,4,2,2,4,1,0,1,4,1,0,1,4,
%T 1,0,1,4,0,7,7,0,4,1,0,1,4,9,6,5,6,9,4,1,0,1,4,9,5,3,3,5,9,4,1,0,1,4,
%U 9,4,1,0,1,4,9,4,1,0,1,4,9,3,12,10,10,12,3,9,4,1,0
%N Triangular array T read by rows: T(n,k) = k^2 mod n, for 1 <= k <= n, n >= 1.
%H T. D. Noe, <a href="/A048152/b048152.txt">Rows n = 1..100 of triangle, flattened</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/QuadraticResidue.html">Quadratic Residue</a>
%F T(n,k) = A133819(n,k) mod n, k = 1..n. - _Reinhard Zumkeller_, Apr 29 2013
%F T(n,k) = (T(n,k-1) + (2k+1)) mod n. - _Andrés Ventas_, Apr 06 2021
%e Rows:
%e 0;
%e 1, 0;
%e 1, 1, 0;
%e 1, 0, 1, 0;
%e 1, 4, 4, 1, 0;
%e 1, 4, 3, 4, 1, 0;
%t Flatten[Table[PowerMod[k,2,n],{n,15},{k,n}]] (* _Harvey P. Dale_, Jun 20 2011 *)
%o (Haskell)
%o a048152 n k = a048152_tabl !! (n-1) !! (k-1)
%o a048152_row n = a048152_tabl !! (n-1)
%o a048152_tabl = zipWith (map . flip mod) [1..] a133819_tabl
%o -- _Reinhard Zumkeller_, Apr 29 2013
%Y Cf. A060036.
%Y Cf. A225126 (central terms).
%Y Cf. A070430 (row 5), A070431 (row 6), A053879 (row 7), A070432 (row 8), A008959 (row 10), A070435 (row 12), A070438 (row 15), A070422 (row 20).
%Y Cf. A046071 (in ascending order, without zeros and duplicates).
%Y Cf. A063987 (for primes, in ascending order, without zeros and duplicates).
%K nonn,tabl,nice,easy
%O 1,12
%A _Clark Kimberling_
|