OFFSET
3,1
COMMENTS
The length of row n is A095972(n).
LINKS
T. D. Noe, Rows n = 3..100, flattened
Eric Weisstein's World of Mathematics, Quadratic Nonresidue
EXAMPLE
Triangle starts:
2;
2, 3;
2, 3;
2, 5;
3, 5, 6;
2, 3, 5, 6, 7;
2, 3, 5, 6, 8;
...
MATHEMATICA
(* As a Triangle *) Table[Complement[Range[n - 1], Mod[Range[n/2]^2, n]], {n, 3, 30}] // Column (* Mo Li, Sep 01 2019 *)
PROG
(PARI) isA096013(n, m)={local(r); r=1; for(i=0, floor(m/2), if(i^2%m==n, r=0)); r} \\ Michael B. Porter, May 05 2010
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Cino Hilliard, Jul 21 2004
EXTENSIONS
Edited by Don Reble, May 07 2006
STATUS
approved