|
| |
|
|
A114245
|
|
Number of Fermat pseudoprimes to base 3 less than 10^n.
|
|
4
| | |
|
|
|
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
|
|
|
PROG
| (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 * A078798 A027043 A006815
Adjacent sequences: A114242 A114243 A114244 * A114246 A114247 A114248
|
|
|
KEYWORD
| nonn,more
|
|
|
AUTHOR
| Eric Weisstein (eric(AT)weisstein.com), Nov 18, 2005
|
| |
|
|
