|
|
A065507
|
|
Smallest prime q such that (p^q+1)/(p+1) is a prime, where p = prime(n).
|
|
19
|
|
|
3, 3, 5, 3, 5, 3, 7, 17, 11, 7, 109, 5, 17, 5, 5, 21943, 17, 7, 3, 5, 7, 3, 19, 13
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
It is known that for the prime 97, a(25) > 31000. - T. D. Noe, Feb 13 2004
|
|
LINKS
|
|
|
MATHEMATICA
|
Do[p = Prime[n]; k = 1; While[ !PrimeQ[ (p^Prime[k] + 1)/(p + 1)], k++ ]; Print[ Prime[k]], {n, 1, 15} ]
|
|
CROSSREFS
|
Cf. A084742 (least k such that (n^k+1)/(n+1) is prime).
|
|
KEYWORD
|
hard,more,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|