A092939 Index of the first occurrence of prime(n) in A092938.

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

Offset

1,2

Comments

Smallest k such that prime(n) = A092938(k).

Links

Robert Israel, Table of n, a(n) for n = 1..149

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:
seq(V[ithprime(i)], i=1..50); # Robert Israel, Jul 31 2020

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

Cf. A092938, A092940.

Sequence in context: A166542 A316967 A189711 * A006610 A227716 A033839

Adjacent sequences: A092936 A092937 A092938 * A092940 A092941 A092942

Keyword

nonn

Author

Amarnath Murthy, Mar 23 2004

Extensions

Edited and extended by Klaus Brockhaus, Dec 23 2006

Status

approved