A020224 Pseudoprimes to base 96.

65, 95, 133, 469, 485, 679, 781, 973, 1105, 1261, 1273, 1649, 1729, 1843, 2465, 2641, 2665, 2701, 2821, 3545, 3977, 4187, 4577, 5617, 6097, 6305, 6499, 6601, 8905, 8911, 9121, 9215, 9217, 9313, 10585, 11155, 11881, 12649, 12901, 13289, 13333, 13483

Offset

1,1

Comments

Composite numbers n such that 96^(n-1) == 1 (mod n). - Michel Lagneau, Feb 18 2012

Links

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

Index entries for sequences related to pseudoprimes

Mathematica

base = 96; 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 *)

Crossrefs

Cf. A001567 (pseudoprimes to base 2).

Sequence in context: A283656 A020194 A094447 * A063519 A299456 A300094

Adjacent sequences: A020221 A020222 A020223 * A020225 A020226 A020227

Keyword

nonn

Author

David W. Wilson

Status

approved