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

Author

Amarnath Murthy, Mar 23 2004

Keywords

• nonn

Comments

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

Examples

			First occurrence of prime(6) = 13 is A092938(18), so a(6) = 18.
		

Links

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

Crossrefs

Cf. A092938, A092940.

Programs

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

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],","))}

Extensions

Edited and extended by Klaus Brockhaus, Dec 23 2006