|
|
A089487
|
|
The third-smallest prime of the form (p-prime(n))/(prime(n)-1), where p is also prime.
|
|
2
|
|
|
11, 7, 17, 11, 5, 7, 41, 23, 17, 23, 13, 31, 53, 17, 17, 17, 29, 19, 19, 5, 13, 13, 149, 41, 11, 11, 5, 137, 19, 5, 7, 23, 59, 13, 29, 11, 11, 13, 11, 59, 23, 13, 11, 5, 41, 41, 19, 19, 71, 31, 23, 11
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
For n=1, prime(n)=2, and the ratios generated are (3-2)/1=1 (not prime), (5-2)/1=3 (prime, first), (7-2)/1=5 (prime, second), (11-2)/1=9 (not prime) and (13-2)/1=11 (prime, third and selected a(1)).
|
|
MAPLE
|
A089487 := proc(n) local ct, q, p ;
ct := 0 ; q := ithprime(n) ; p := nextprime(q) ;
while true do
while true do
if type( (p-q)/(q-1), 'integer') then if isprime( (p-q)/(q-1)) then break; end if;
end if;
p := nextprime(p) ;
end do:
ct := ct+1 ;
if ct = 3 then return (p-q)/(q-1); end if;
p := nextprime(p) ;
end do:
end proc:
|
|
PROG
|
(PARI) r is the occurrence desired 1=first, 2=second etc. diff2sqp2(n, r) = { forprime(q=3, n, c=0; forprime(p=q+1, n, y=(p-q)/(q-1); if(y==floor(y), if(isprime(y), c++; if(c==r, print1(y", "); break)) ) ) ) }
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|