|
Search: id:A114245
|
|
|
| A114245 |
|
Number of Fermat pseudoprimes to base 3 less than 10^n. |
|
+0
5
|
| |
|
|
OFFSET
|
1,3
|
|
|
LINKS
|
Eric Weisstein's World of Mathematics, FermatPseudoprime
|
|
FORMULA
|
A005935[a(n)]<10^n; A005935[a(n)+1]>10^n. - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Feb 10 2007
|
|
PROGRAM
|
(PARI) isFps(n, b)= { if(isprime(n), return(0) ) ; if( (b^(n-1)) % n == 1, return(1), return(0) ) ; } { a=0 ; e=1 ; for(n=1, 10^12, if( n == 10^e, e++ ; print(a) ; ) ; a += isFps(n, 3) ; ) ; } - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Feb 10 2007
|
|
CROSSREFS
|
Sequence in context: A060188 A058751 A034359 this_sequence A078798 A027043 A006815
Adjacent sequences: A114242 A114243 A114244 this_sequence A114246 A114247 A114248
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
Eric Weisstein (eric(AT)weisstein.com), Nov 18, 2005
|
|
|
Search completed in 0.002 seconds
|
