A020152 Pseudoprimes to base 24.

25, 115, 175, 325, 553, 575, 805, 949, 1105, 1541, 1729, 1771, 1825, 1975, 2413, 2425, 2465, 2701, 2737, 2821, 2885, 3781, 4207, 4537, 6601, 6931, 6943, 7081, 7189, 7471, 7501, 7813, 8725, 8911, 9085, 9361, 9809, 10465, 10585, 11557, 12025, 13825, 14425

Offset

1,1

Comments

Composite numbers n such that 24^(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 = 24; 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[24, #-1, #]==1&] (* Harvey P. Dale, Jun 30 2023 *)

Crossrefs

Cf. A001567 (pseudoprimes to base 2).

Sequence in context: A050589 A340123 A247683 * A218493 A360511 A124953

Adjacent sequences: A020149 A020150 A020151 * A020153 A020154 A020155

Keyword

nonn

Author

David W. Wilson

Status

approved