A020193 Pseudoprimes to base 65.

4, 8, 16, 28, 32, 33, 64, 112, 133, 232, 289, 448, 511, 561, 703, 1111, 1247, 1387, 1856, 1891, 1921, 2452, 2701, 3439, 3553, 3729, 4291, 4564, 5068, 6533, 6601, 6697, 8321, 8911, 9537, 9709, 9808, 9809, 10681, 11077, 11584, 11647, 12754, 13213, 14981

Offset

1,1

Comments

Composite numbers n such that 65^(n-1) == 1 (mod n).

Links

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

Index entries for sequences related to pseudoprimes

Mathematica

base = 65; 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[15000], CompositeQ[#]&&PowerMod[65, #-1, #]==1&] (* Harvey P. Dale, Oct 16 2023 *)

Crossrefs

Cf. A001567 (pseudoprimes to base 2).

Sequence in context: A303544 A273029 A273080 * A176817 A050856 A271649

Adjacent sequences: A020190 A020191 A020192 * A020194 A020195 A020196

Keyword

nonn

Author

David W. Wilson

Status

approved