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

Author

Zak Seidov, Oct 27 2009

Keywords

• nonn
• more

Comments

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

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

Examples

			(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.
		

Crossrefs

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

Programs

Mathematica

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

Extensions

a(20) from Amiram Eldar, Jul 04 2021