A152526 Numbers k with property that (k^2 mod prime(k)) < 10.

1, 2, 3, 4, 5, 8, 13, 21, 27, 44, 104, 365, 5477, 16787, 20272, 446691, 1793239, 9806042, 198017575, 2830612574

Offset

1,2

Comments

Numbers k with property that A069547(k) < 10.

a(21) > 4.4*10^10, if it exists. - Amiram Eldar, Jul 04 2021

Links

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

Example

(n, A069547(n)): (1,1),(2,1),(3,4),(4,2),(5,3),(8,7),(13,5),(21,3),(27,8),(44,6),(104,5),(365,7),(5477,7),(16787,8),(20272,3),(446691,5),(1793239,8),(9806042,2),(198017575,2),(2830612574, 6).
198017575^2 = 9384391*prime(198017575) + 2.

Mathematica

Do[m=PowerMod[n, 2, Prime[n]]; If[m<10, Print[{n, m}], {n, 2*10^8}]

Crossrefs

Cf. A069547 (n^2 mod n-th prime).

Sequence in context: A346073 A211696 A357533 * A330706 A162901 A333785

Adjacent sequences: A152523 A152524 A152525 * A152527 A152528 A152529

Keyword

nonn,more

Author

Zak Seidov, Oct 27 2009

Extensions

a(20) from Amiram Eldar, Jul 04 2021

Status

approved