A020207 Pseudoprimes to base 79.

6, 15, 26, 39, 49, 65, 78, 91, 195, 301, 559, 561, 637, 1105, 1649, 1729, 2107, 2465, 2626, 2665, 2701, 2821, 3201, 3913, 4215, 4753, 5055, 6305, 6533, 6601, 7051, 7107, 7361, 7543, 8149, 8321, 8911, 9331, 9773, 9881, 10585, 10621, 12001, 14491, 14689

Offset

1,1

Comments

Composite numbers n such that 79^(n-1) == 1 (mod n).

Links

T. D. Noe, Table of n, a(n) for n = 1..1000

Index entries for sequences related to pseudoprimes

Mathematica

base = 79; t = {}; n = 1; While[Length[t] < 100, n++; If[! PrimeQ[n] && PowerMod[base, n-1, n] == 1, AppendTo[t, n]]]; t (* T. D. Noe, Feb 21 2012 *)
Select[Range[15000], CompositeQ[#]&&PowerMod[79, #-1, #]==1&] (* Harvey P. Dale, Feb 15 2015 *)

Crossrefs

Cf. A001567 (pseudoprimes to base 2).

Sequence in context: A064565 A190515 A051940 * A222170 A151762 A213791

Adjacent sequences: A020204 A020205 A020206 * A020208 A020209 A020210

Keyword

nonn

Author

David W. Wilson

Status

approved