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,1

Comments

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

Links

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

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 *)

Crossrefs

Cf. A007535, A090086, A090096, A090097.

Sequence in context: A070609 A007236 A056021 * A101865 A138391 A242293

Adjacent sequences: A090095 A090096 A090097 * A090099 A090100 A090101

Keyword

nonn

Author

Labos Elemer, Dec 01 2003

Extensions

More terms from Amiram Eldar, Sep 09 2019

Status

approved