cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

A010461 Squares mod 100.

Original entry on oeis.org

0, 1, 4, 9, 16, 21, 24, 25, 29, 36, 41, 44, 49, 56, 61, 64, 69, 76, 81, 84, 89, 96
Offset: 1

Views

Author

N. J. A. Sloane

Keywords

Comments

Range of A002015; subset of A122986. - Reinhard Zumkeller, Mar 21 2010

Crossrefs

Cf. A010382, A010411, A010462, A010421. - Reinhard Zumkeller, Mar 21 2010
Row 100 of A096008.
Cf. A028813.

Programs

  • Magma
    [n: n in [0..99] | IsSquare(R! n) where R:= ResidueClassRing(100)]; // Vincenzo Librandi, Dec 28 2019
  • Mathematica
    Union[PowerMod[Range[100], 2, 100]] (* Alonso del Arte, Dec 25 2019 *)
  • PARI
    A010461=Set(vector(100,n,n^2)%100) \\ M. F. Hasler, Mar 03 2014
  • Sage
    [quadratic_residues(100)] # Zerinvary Lajos, May 28 2009
  • Scala
    (1 to 100).map(n => (n * n) % 100).toSet.toSeq.sorted // Alonso del Arte, Dec 25 2019

A122986 Squares mod 1000.

Original entry on oeis.org

0, 1, 4, 9, 16, 24, 25, 36, 41, 44, 49, 56, 64, 76, 81, 84, 89, 96, 100, 104, 116, 121, 124, 129, 136, 144, 156, 161, 164, 169, 176, 184, 196, 201, 204, 209, 216, 224, 225, 236, 241, 244, 249, 256, 264, 276, 281, 284, 289, 296, 304, 316, 321, 324, 329, 336, 344
Offset: 1

Views

Author

Sergio Pimentel, Sep 22 2006

Keywords

Comments

Possible last three digits of n^2 (leading zeros omitted).
Range of A174452; A010461 is a subset; and also all squares less than 1000 belong to this sequence; the sequence is finite with A000993(3)=159 terms: a(159)=996 is the last term.

Examples

			The last three digits of n^2 can be 000, 001, 236, 241, 996, etc. but not 002, 003, 237, 238, etc.

Links

Crossrefs

Cf. A036688, A010382, A010411, A010462, A010421, A174452.
Cf. A006716, A053975, A027676, A027678, A122987, A122988.
Row 1000 of A096008.

Programs

  • Magma
    [n: n in [0..999] | IsSquare(R! n) where R:= ResidueClassRing(1000)]; // Vincenzo Librandi, Dec 29 2019
  • Maple
    s:={}: for n from 0 to 999 do s:=s union {n^2 mod 1000}: od: op(s); # Nathaniel Johnston, Jun 22 2011
  • Mathematica
    Union[PowerMod[Range[1000], 2, 1000]] (* Vincenzo Librandi, Dec 29 2019 *)

Extensions

More terms and additional comments from Reinhard Zumkeller, Mar 21 2010
Edited by N. J. A. Sloane, Apr 10 2010

A028763 Nonsquares mod 50.

Original entry on oeis.org

2, 3, 5, 7, 8, 10, 12, 13, 15, 17, 18, 20, 22, 23, 27, 28, 30, 32, 33, 35, 37, 38, 40, 42, 43, 45, 47, 48
Offset: 1

Views

Author

N. J. A. Sloane

Keywords

Crossrefs

Cf. A010411, A028738 (subsequence).

Programs

  • Mathematica
    Complement[Range[0, 49], PowerMod[Range[50], 2, 50]] (* Alonso del Arte, Dec 25 2019 *)
  • Scala
    (0 to 49).diff((1 to 50).map(n => (n * n) % 50)) // Alonso del Arte, Dec 25 2019
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.