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.
The array reads: (See the original post on the SeqFan list for more data.) n\k: 1 2 3 4 5 6 7 8 1 2, 3, 5, 7, 11, 13, 17, 19, ... 2 8, 33, 40, 128, 115, 302, 226, 226, ... 3 68, 348, 271, 557, 3209, 5470, 226, 6229, ... 4 1118, 2273, 10281, 20005, 87189, 12899, 88937, 709247 ... 5 2273, 27298, 112383, 666651, 2598191, 874663, 9124786, 3004394 ... 6 197468, 112383, 1728998, 16601856, 81018715, 154484096, 285307475, 34371403...
T := proc(n,k)
local lrem,leval,i ;
lrem := [] ;
leval := [] ;
for i from k to n+k-1 do
lrem := [op(lrem),ithprime(i+1)] ;
leval := [op(leval),ithprime(i)] ;
end do:
chrem(leval,lrem) ;
end proc:
seq(seq(T(d-k,k),k=1..d-1),d=2..12) ; # R. J. Mathar, Apr 14 2016
T(n,k)=lift(chinese(vector(n,i,Mod(prime(k+i-1),prime(k+i))))) concat(vector(10,n,vector(n,j, T(n-j+1,j))))
Comments