A072624 a(n) = prime(n^2) mod n^2.

0, 3, 5, 5, 22, 7, 31, 55, 14, 41, 56, 107, 164, 17, 77, 83, 145, 199, 271, 341, 437, 73, 100, 179, 262, 319, 416, 519, 594, 697, 846, 993, 25, 93, 131, 259, 369, 497, 575, 699, 879, 989, 1085, 1259, 1409, 1533, 1799, 1961, 2183, 2307, 2519, 23, 188, 329, 514

Offset

1,2

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Formula

a(n) = A004648(n^2).

Example

For n = 10: a(10) = prime(100) mod 100 = 541 mod 100 = 41.

Mathematica

a[n_] := Mod[Prime[n^2], n^2]; Array[a, 100] (* Amiram Eldar, Mar 17 2025 *)

Prog

(PARI) a(n) = prime(n^2) % (n^2); \\ Amiram Eldar, Mar 17 2025

Crossrefs

Cf. A004648, A065863, A065134, A065875, A072623.

Sequence in context: A165235 A370553 A200771 * A147976 A019247 A320433

Adjacent sequences: A072621 A072622 A072623 * A072625 A072626 A072627

Keyword

nonn,changed

Author

Labos Elemer, Jun 28 2002

Status

approved