OFFSET
1,1
COMMENTS
Are there infinitely many such pseudoprimes?
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
7957 = 73*109 is pseudoprime and 72 does not divide 7956.
30889 = 17*23*79 is pseudoprime and 16 does not divide 30888.
MATHEMATICA
Select[Range[760000] 2 + 1, PowerMod[2, #-1, #] == 1 && Mod[#-1, FactorInteger[#][[1, 1]] - 1] > 0 &] (* Giovanni Resta, Jul 16 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Thomas Ordowski, Jul 16 2018
EXTENSIONS
a(8)-a(33) from Giovanni Resta, Jul 16 2018
STATUS
approved