A028795 Nonsquares mod 82.

3, 6, 7, 11, 12, 13, 14, 15, 17, 19, 22, 24, 26, 27, 28, 29, 30, 34, 35, 38, 44, 47, 48, 52, 53, 54, 55, 56, 58, 60, 63, 65, 67, 68, 69, 70, 71, 75, 76, 79

Offset

1,1

Links

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

Mathematica

Complement[Range[0, 81], PowerMod[Range[82], 2, 82]] (* Alonso del Arte, May 01 2020 *)

Prog

(PARI) for(k=0, 82, if(!issquare(Mod(k, 82)), print1(k, ", "))) \\ Hugo Pfoertner, Nov 29 2019
(Scala) (0 to 81).diff((1 to 82).map(n => n * n % 82)) // Alonso del Arte, May 01 2020

Crossrefs

Cf. A010443, A028754.

Sequence in context: A164557 A292608 A028754 * A004780 A359266 A292046

Adjacent sequences: A028792 A028793 A028794 * A028796 A028797 A028798

Keyword

nonn,fini,full,easy

Author

N. J. A. Sloane.

Extensions

Incorrect term 41 removed by Alonso del Arte, Nov 29 2019

Status

approved