cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A049759 Triangular array T read by rows: T(n,k)=n^2 mod k, for k=1,2,...,n, n=1,2,...

This page as a plain text file.
%I A049759 #25 Sep 08 2022 08:44:58
%S A049759 0,0,0,0,1,0,0,0,1,0,0,1,1,1,0,0,0,0,0,1,0,0,1,1,1,4,1,0,0,0,1,0,4,4,
%T A049759 1,0,0,1,0,1,1,3,4,1,0,0,0,1,0,0,4,2,4,1,0,0,1,1,1,1,1,2,1,4,1,0,0,0,
%U A049759 0,0,4,0,4,0,0,4,1,0,0,1,1,1,4,1,1,1,7,9,4,1,0
%N A049759 Triangular array T read by rows: T(n,k)=n^2 mod k, for k=1,2,...,n, n=1,2,...
%H A049759 G. C. Greubel, <a href="/A049759/b049759.txt">Rows n = 1..100 of triangle, flattened</a>
%e A049759 Triangle begins:
%e A049759   0;
%e A049759   0, 0;
%e A049759   0, 1, 0;
%e A049759   0, 0, 1, 0;
%e A049759   0, 1, 1, 1, 0;
%e A049759   0, 0, 0, 0, 1, 0;
%e A049759   0, 1, 1, 1, 4, 1, 0;
%e A049759   0, 0, 1, 0, 4, 4, 1, 0;
%e A049759   0, 1, 0, 1, 1, 3, 4, 1, 0;
%e A049759   0, 0, 1, 0, 0, 4, 2, 4, 1, 0;
%e A049759   0, 1, 1, 1, 1, 1, 2, 1, 4, 1, 0;
%e A049759   0, 0, 0, 0, 4, 0, 4, 0, 0, 4, 1, 0;
%e A049759   0, 1, 1, 1, 4, 1, 1, 1, 7, 9, 4, 1, 0;
%p A049759 seq(seq( `mod`(n^2, k), k = 1..n), n = 1..15); # _G. C. Greubel_, Dec 13 2019
%t A049759 Table[PowerMod[n,2,k], {n,15}, {k,n}]//Flatten (* _G. C. Greubel_, Dec 13 2019 *)
%o A049759 (PARI) tabl(nn) = {for (n=1, nn, for (k=1, n, print1(n^2 % k, ", ");); print(););} \\ _Michel Marcus_, Mar 31 2014
%o A049759 (Magma) [[Modexp(n,2,k): k in [1..n]]: n in [1..15]]; // _G. C. Greubel_, Dec 13 2019
%o A049759 (Sage) [[power_mod(n,2,k) for k in (1..n)] for n in (1..15)] # _G. C. Greubel_, Dec 13 2019
%o A049759 (GAP) Flat(List([1..15], n-> List([1..n], k-> PowerMod(n,2,k) ))); # _G. C. Greubel_, Dec 13 2019
%Y A049759 Cf. A048152.
%K A049759 nonn,tabl
%O A049759 1,26
%A A049759 _Clark Kimberling_