|
|
A092939
|
|
Index of the first occurrence of prime(n) in A092938.
|
|
3
|
|
|
1, 2, 10, 8, 52, 18, 57, 36, 96, 40, 110, 249, 154, 328, 123, 288, 495, 125, 826, 343, 546, 431, 670, 833, 694, 1555, 216, 1399, 1195, 1620, 1780, 3843, 2920, 647, 7722, 873, 7492, 4485, 6768, 8201, 7991, 5178, 11744, 2669, 16060, 5809, 11149, 18177, 5307
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Smallest k such that prime(n) = A092938(k).
|
|
LINKS
|
|
|
EXAMPLE
|
First occurrence of prime(6) = 13 is A092938(18), so a(6) = 18.
|
|
MAPLE
|
# with f as in A092938N:= ithprime(50): V:= Vector(N): count:= 0:
for n from 1 while count < 50 do
v:= f(n);
if v <= N and V[v]=0 then count:= count+1; V[v]:= n;
fi;
od:
|
|
PROG
|
(PARI) {v=vector(50); for(n=1, 20000, k=2*prime(n); j=1; while(!isprime(k-prime(j)), j=j+1); if(j<=z&&v[j]==0, v[j]=n)); for(i=1, #v, print1(v[i], ", "))}
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|