OFFSET
1,1
COMMENTS
According to Karsten Meyer, May 16 2006, 6, 9 and 18 should be excluded, following the strict definition in Crandall and Pomerance.
Composite numbers n such that 19^(n-1) == 1 (mod n).
REFERENCES
R. Crandall and C. Pomerance, "Prime Numbers - A Computational Perspective", Second Edition, Springer Verlag 2005, ISBN 0-387-25282-7 Page 132 (Theorem 3.4.2. and Algorithm 3.4.3)
LINKS
MATHEMATICA
base = 19; 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
KEYWORD
nonn
AUTHOR
STATUS
approved