|
| |
|
|
A062666
|
|
Numbers n such that k^n - (k-1)^n is prime, where k is 100.
|
|
84
| | |
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Terms > 1000 correspond to probable primes.
|
|
|
MATHEMATICA
| lst={}; k=100; Do[If[PrimeQ[k^n-(k-1)^n], Print[n]; AppendTo[lst, n]], {n, 10^5}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 26 2008]
|
|
|
PROG
| (PARI) forprime(p=2, 1e5, if(ispseudoprime(100^p-99^p), print1(p", "))) \\ Charles R Greathouse IV, Jun 10 2011
|
|
|
CROSSREFS
| Cf. A000043, A057468, A059801, A059802, A062572-A062665.
Sequence in context: A184435 A072468 A148430 * A148431 A148432 A047116
Adjacent sequences: A062663 A062664 A062665 * A062667 A062668 A062669
|
|
|
KEYWORD
| nonn,hard
|
|
|
AUTHOR
| Mike Oakes (Mikeoakes2(AT)aol.com), May 18 2001, May 19 2001
|
|
|
EXTENSIONS
| Edited by T. D. Noe (noe(AT)sspectra.com), Oct 30 2008
|
| |
|
|
