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
KEYWORD
nonn
AUTHOR
Labos Elemer, Dec 01 2003
EXTENSIONS
More terms from Amiram Eldar, Sep 09 2019
STATUS
approved