A165916 Irregular triangle read by rows: squarefree quadratic non-residues.
2, 2, 3, 2, 3, 2, 5, 3, 5, 6, 2, 3, 5, 6, 7, 2, 3, 5, 6, 2, 3, 7, 2, 6, 7, 10, 2, 3, 5, 6, 7, 10, 11, 2, 5, 6, 7, 11, 3, 5, 6, 10, 13, 2, 3, 5, 7, 11, 13, 14, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 3, 5, 6, 7, 10, 11, 14, 2, 3, 5, 6, 11, 14, 15, 17, 2, 3, 10, 13, 14, 15
Offset: 3
Links
- C. H. Gribble, Flattened irregular triangle read by rows j = 3 to 200
Crossrefs
Cf. A096013.
Programs
-
Mathematica
Flatten[Table[Select[Complement[Range[n - 1], Mod[Range[n/2]^2, n]], SquareFreeQ], {n, 3, 30}]] (* T. D. Noe, Nov 22 2011 *)
Extensions
Minor edit by Christopher Hunt Gribble, Oct 05 2009
Comments