A020174 Pseudoprimes to base 46.

9, 15, 45, 133, 141, 145, 235, 261, 341, 365, 423, 561, 657, 703, 705, 721, 763, 781, 949, 1105, 1305, 1417, 1551, 1645, 1729, 1885, 1891, 1957, 1991, 2071, 2115, 2117, 2201, 2465, 2701, 2821, 3201, 3285, 4033, 4089, 4187, 4371, 4465, 4681, 5365, 5611, 5781

Offset

1,1

Comments

Composite numbers n such that 46^(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 = 46; 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: A146789 A194946 A020172 * A020315 A020270 A020272

Adjacent sequences: A020171 A020172 A020173 * A020175 A020176 A020177

Keyword

nonn

Author

David W. Wilson

Status

approved