Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A020146
Pseudoprimes to base 18.
1
25, 49, 65, 85, 133, 221, 323, 325, 343, 425, 451, 637, 931, 1105, 1225, 1369, 1387, 1649, 1729, 1921, 2149, 2465, 2701, 2821, 2825, 2977, 3325, 4165, 4577, 4753, 5525, 5725, 5833, 5941, 6305, 6517, 6601, 7345, 8911, 9061, 10349, 10585, 10961, 11221
OFFSET
1,1
COMMENTS
Composite numbers n such that 18^(n-1) == 1 (mod n). - Michel Lagneau, Feb 18 2012
MATHEMATICA
base = 18; 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: A278931 A181782 A322121 * A020244 A020196 A020294
KEYWORD
nonn
STATUS
approved