|
|
A090083
|
|
Even pseudoprimes to base 9.
|
|
14
|
|
|
4, 8, 28, 52, 286, 364, 532, 616, 946, 1036, 1288, 2806, 2926, 3052, 4376, 4636, 5356, 6364, 8744, 8866, 11476, 12124, 15964, 17446, 19096, 19684, 21196, 21736, 24046, 24388, 26596, 31876
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Do[s=Mod[ -1+9^(n-1), n]; If[Equal[s, 0]&&!PrimeQ[n]&&EvenQ[n], Print[n]], {n, 1, 1000000}]
|
|
PROG
|
(PARI) p=2; forprime(q=3, 1e8, forstep(n=p+1, q-1, 2, if(Mod(9, n)^(n-1)==1, print1(n", "))); p=q) \\ Charles R Greathouse IV, Apr 12 2012
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|