A020150 Pseudoprimes to base 22.

21, 69, 91, 105, 161, 169, 345, 483, 485, 645, 805, 1105, 1183, 1247, 1261, 1541, 1649, 1729, 1891, 2037, 2041, 2047, 2413, 2465, 2737, 2821, 3241, 3605, 3801, 5551, 5565, 5963, 6019, 6601, 6693, 7081, 7107, 7267, 7665, 8119, 8365, 8421, 8911, 9453, 10185

Offset

1,1

Comments

Composite numbers n such that 22^(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 = 22; 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: A045100 A038471 A224072 * A178389 A297304 A155492

Adjacent sequences: A020147 A020148 A020149 * A020151 A020152 A020153

Keyword

nonn

Author

David W. Wilson

Status

approved