A020166 Pseudoprimes to base 38.

39, 65, 85, 91, 111, 185, 221, 259, 289, 469, 481, 561, 629, 697, 871, 1105, 1221, 1443, 1445, 2405, 2465, 2479, 2553, 2665, 2701, 2821, 3145, 3367, 3585, 3757, 4033, 4187, 4681, 5291, 5461, 6031, 6097, 6601, 6931, 7449, 7585, 7613, 7957, 8177, 9073, 9919

Offset

1,1

Comments

Composite numbers n such that 38^(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 = 38; 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[10000], CompositeQ[#]&&PowerMod[38, #-1, #]==1&] (* Harvey P. Dale, Jan 22 2023 *)

Crossrefs

Cf. A001567 (pseudoprimes to base 2).

Sequence in context: A043956 A090876 A165461 * A046448 A249701 A039467

Adjacent sequences: A020163 A020164 A020165 * A020167 A020168 A020169

Keyword

nonn

Author

David W. Wilson

Status

approved