A020177 Pseudoprimes to base 49.

4, 6, 8, 12, 15, 16, 24, 25, 48, 66, 75, 76, 172, 176, 232, 247, 276, 304, 325, 425, 435, 475, 496, 559, 561, 688, 703, 817, 904, 946, 949, 1075, 1105, 1128, 1146, 1695, 1825, 1891, 2101, 2353, 2356, 2465, 2486, 2509, 2701, 3056, 3091, 3268, 3277, 3439

Offset

1,1

Comments

Composite numbers n such that 49^(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 = 49; 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: A046458 A096629 A334468 * A239439 A325601 A310662

Adjacent sequences: A020174 A020175 A020176 * A020178 A020179 A020180

Keyword

nonn

Author

David W. Wilson

Status

approved