login
A076748
Smallest k such that k*n+1 is a base-2 pseudoprime.
1
340, 170, 368, 85, 68, 184, 80, 70, 154, 34, 126, 92, 252, 40, 180, 35, 20, 77, 230, 17, 66, 63, 28, 46, 108, 126, 64, 20, 474, 90, 66, 54, 42, 10, 16, 48, 896, 115, 84, 14, 2128, 33, 1224, 56, 60, 14, 60, 23, 216, 54, 156, 63, 160, 32, 120, 10, 180, 237, 17028, 45
OFFSET
1,1
LINKS
MATHEMATICA
pspQ[n_] := CompositeQ[n] && PowerMod[2, (n - 1), n] == 1; a[n_] := Module[{k=1}, While[!pspQ[k*n+1], k++]; k]; Array[a, 60] (* Amiram Eldar, Jun 28 2019 *)
CROSSREFS
Cf. A001567.
Sequence in context: A252447 A252441 A236896 * A306865 A205223 A238040
KEYWORD
nonn
AUTHOR
Jason Earls, Nov 12 2002
STATUS
approved