A076748 - OEIS

A076748

Smallest k such that k*n+1 is a base-2 pseudoprime.

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

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

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

Adjacent sequences: A076745 A076746 A076747 * A076749 A076750 A076751

KEYWORD

nonn

AUTHOR

Jason Earls, Nov 12 2002

STATUS

approved