A020184 Pseudoprimes to base 56.

15, 33, 55, 57, 95, 165, 209, 247, 285, 403, 561, 589, 627, 715, 1027, 1045, 1105, 1339, 1501, 1653, 1705, 1891, 1957, 1991, 2449, 2465, 3135, 3193, 3277, 3553, 3565, 4345, 5611, 5665, 6441, 7657, 8137, 8321, 10585, 11041, 11077, 12403, 13585, 13695, 15685

Offset

1,1

Comments

Composite numbers n such that 56^(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 = 56; 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: A327900 A071965 A242677 * A231371 A228318 A228321

Adjacent sequences: A020181 A020182 A020183 * A020185 A020186 A020187

Keyword

nonn

Author

David W. Wilson

Status

approved