|
Search: id:A161748
|
|
|
| A161748 |
|
Smallest distinct primes in x^n - y^(n-1). |
|
+0
1
|
|
| 2, 2, 2, 17, 31, 971, 127, 856073, 19427, 58537, 176123, 529393, 8191, 128467258961, 977123207545039, 43013953, 131071, 3814697134553, 524287, 79792266297087713
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
3^1 - 1^0 = 2, 2^2 - 2 = 2, 3^3 - 5^2 = 2, so 2,2,2 are the first 3 entries.
|
|
PROGRAM
|
(PARI) diffpowers(n, m) =
{
local(a, c=0, c2=0, j, k, y);
a=vector(floor(n^2/log(n^2)));
for(j=1, n,
for(k=1, n,
y=j^m-k^(m-1);
if(ispseudoprime(y),
c++;
\\ print(j", "k", "y);
a[c]=y;
);
);
);
a=vecsort(a);
for(j=2, length(a),
if(a[j]!=a[j-1]&&a[j]!=0,
c2++;
print1(a[j]", ");
if(c2>100, break);
);
);
}
|
|
CROSSREFS
|
Sequence in context: A025521 A068218 A098919 this_sequence A079007 A087238 A099640
Adjacent sequences: A161745 A161746 A161747 this_sequence A161749 A161750 A161751
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Cino Hilliard (hillcino368(AT)hotmail.com), Jun 17 2009
|
|
|
Search completed in 0.002 seconds
|
