A090097 Bases n such that the smallest prime-power-pseudoprime to base n is 9.

8, 10, 19, 26, 28, 35, 44, 46, 55, 62, 64, 71, 80, 82, 91, 98, 100, 107, 116, 118, 127, 134, 136, 143, 152, 154, 163, 170, 172, 179, 188, 190, 199, 206, 208, 215, 224, 226, 235, 242, 244, 251, 260, 262, 271, 278, 280, 287, 296, 298, 307, 314, 316, 323, 332, 334

Offset

1,1

Comments

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

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[9, n] && AllTrue[{4, 8}, !pspQ[#, n] &]; Select[Range[1000], aQ] (* Amiram Eldar, Sep 09 2019 *)

Crossrefs

Cf. A007535, A090086, A090096.

Sequence in context: A079347 A153382 A157911 * A236653 A257274 A022322

Adjacent sequences: A090094 A090095 A090096 * A090098 A090099 A090100

Keyword

nonn

Author

Labos Elemer, Dec 01 2003

Extensions

More terms from Amiram Eldar, Sep 09 2019

Status

approved