OFFSET
1,1
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..5000
PROG
(PARI)
A053444list(up_to) = { my(v=vector(up_to), t, n=1, i=0); while(i<up_to, my(u=vector(n), ind); for(x=0, (n+1)\2, for(y=0, x, u[((x^2+y^2)%n)+1]=1)); if(0==vecmin(u, &ind), i++; v[i] = ind-1); n++); (v); };
v053444 = A053444list(up_to);
A053444(n) = v053444[n]; \\ Antti Karttunen, Nov 07 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved