A028791 Nonsquares mod 78.

2, 5, 6, 7, 8, 11, 14, 15, 17, 18, 19, 20, 21, 23, 24, 26, 28, 29, 31, 32, 33, 34, 35, 37, 38, 41, 44, 45, 46, 47, 50, 53, 54, 56, 57, 58, 59, 60, 62, 63, 65, 67, 68, 70, 71, 72, 73, 74, 76, 77

Offset

1,1

Links

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

Mathematica

Complement[Range[0, 77], PowerMod[Range[78], 2, 78]] (* Alonso del Arte, Dec 26 2019 *)

Prog

(PARI) for(k=0, 78, if(!issquare(Mod(k, 78)), print1(k, ", "))) \\ Hugo Pfoertner, Dec 02 2019
(Scala) (0 to 77).diff((1 to 78).map(n => (n * n) % 78)) // Alonso del Arte, Dec 26 2019

Crossrefs

Cf. A010439.

Sequence in context: A170944 A074940 A028752 * A080727 A283974 A028739

Adjacent sequences: A028788 A028789 A028790 * A028792 A028793 A028794

Keyword

nonn,fini,full,easy

Author

N. J. A. Sloane

Extensions

Incorrect term 39 removed by Alonso del Arte, Dec 01 2019

Status

approved