A028813 Nonsquares mod 100.

2, 3, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 22, 23, 26, 27, 28, 30, 31, 32, 33, 34, 35, 37, 38, 39, 40, 42, 43, 45, 46, 47, 48, 50, 51, 52, 53, 54, 55, 57, 58, 59, 60, 62, 63, 65, 66, 67, 68, 70, 71, 72, 73, 74, 75, 77, 78, 79, 80, 82, 83, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95, 97, 98, 99

Offset

1,1

Comments

Complement of A010461. Numbers n such that k^2 == n (mod 100) has no solution. - Altug Alkan, Dec 10 2015

Links

Table of n, a(n) for n=1..78.

Mathematica

n = 100; Complement[Range[0, n - 1], Union@ Array[PowerMod[#, 2, n] &, {100}]] (* Michael De Vlieger, Dec 10 2015 *)

Prog

(PARI) v=vector(100, n, n^2%100); v=vecsort(v); for(i=1, 99, if (!vecsearch(v, i), print1(i, ", "))) \\ Derek Orr, Sep 25 2014
(PARI) for (n=0, 99, if (!issquare(Mod(n, 100)), print1(n, ", ")); ); \\ Michel Marcus, Dec 10 2015
(Scala) (0 to 99).diff((1 to 100).map(n => (n * n) % 100)) // Alonso del Arte, Dec 25 2019

Crossrefs

Cf. A000037 (nonsquares).

Cf. A010461.

Sequence in context: A283296 A028797 A028773 * A158276 A028793 A028753

Adjacent sequences: A028810 A028811 A028812 * A028814 A028815 A028816

Keyword

nonn,fini,full,easy

Author

N. J. A. Sloane

Extensions

More terms to show full sequence from Derek Orr, Sep 25 2014

Status

approved