A020144 Pseudoprimes to base 16.

15, 51, 85, 91, 255, 341, 435, 451, 561, 595, 645, 703, 1105, 1247, 1261, 1271, 1285, 1387, 1581, 1687, 1695, 1729, 1891, 1905, 2047, 2071, 2091, 2431, 2465, 2701, 2821, 3133, 3277, 3367, 3655, 3683, 4033, 4369, 4371, 4681, 4795, 4859, 5083, 5151, 5461

Offset

1,1

Comments

Composite numbers n such that 16^(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 = 16; 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: A238574 A333314 A238575 * A339880 A235040 A365473

Adjacent sequences: A020141 A020142 A020143 * A020145 A020146 A020147

Keyword

nonn

Author

David W. Wilson

Status

approved