A090098 Bases such that the smallest prime-power-pseudoprime is belonging to equals 25.

7, 18, 24, 32, 43, 51, 68, 74, 76, 99, 124, 126, 132, 151, 168, 174, 176, 182, 207, 218, 232, 243, 268, 274, 276, 282, 299, 318, 324, 326, 351, 374, 376, 382, 399, 407, 418, 426, 432, 443, 468, 474, 482, 499, 507, 518, 524, 526, 543, 551, 574, 576, 582, 599, 607

Offset: 1

Author

Labos Elemer, Dec 01 2003

Keywords

• nonn

Comments

Values of x such that A090096(x) = 25.

Links

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

Crossrefs

Cf. A007535, A090086, A090096, A090097.

Programs

Mathematica

pspQ[n_,b_] := CompositeQ[n] &&  PowerMod[b, n - 1,n ] == 1 ; aQ[n_]:=pspQ[25, n] && AllTrue[{4,8,9,16}, !pspQ[#, n] &]; Select[Range[1000], aQ] (* Amiram Eldar, Sep 09 2019 *)

Extensions

More terms from Amiram Eldar, Sep 09 2019