login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A090083 Even pseudoprimes to base 9. 14

%I

%S 4,8,28,52,286,364,532,616,946,1036,1288,2806,2926,3052,4376,4636,

%T 5356,6364,8744,8866,11476,12124,15964,17446,19096,19684,21196,21736,

%U 24046,24388,26596,31876

%N Even pseudoprimes to base 9.

%H Charles R Greathouse IV, <a href="/A090083/b090083.txt">Table of n, a(n) for n = 1..1000</a>

%H <a href="/index/Ps#pseudoprimes">Index entries for sequences related to pseudoprimes</a>

%t Do[s=Mod[ -1+9^(n-1), n]; If[Equal[s, 0]&&!PrimeQ[n]&&EvenQ[n], Print[n]], {n, 1, 1000000}]

%o (PARI) is(n)=Mod(9, n)^(n-1)==1&&!isprime(n)&&n%2==0 \\ _Charles R Greathouse IV_, Apr 12 2012

%o (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

%Y Cf. A020138.

%K nonn

%O 1,1

%A _Labos Elemer_, Nov 25 2003

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 2 08:34 EDT 2022. Contains 357191 sequences. (Running on oeis4.)