|
%I #8 Jul 31 2020 16:42:10
%S 1,2,10,8,52,18,57,36,96,40,110,249,154,328,123,288,495,125,826,343,
%T 546,431,670,833,694,1555,216,1399,1195,1620,1780,3843,2920,647,7722,
%U 873,7492,4485,6768,8201,7991,5178,11744,2669,16060,5809,11149,18177,5307
%N Index of the first occurrence of prime(n) in A092938.
%C Smallest k such that prime(n) = A092938(k).
%H Robert Israel, <a href="/A092939/b092939.txt">Table of n, a(n) for n = 1..149</a>
%e First occurrence of prime(6) = 13 is A092938(18), so a(6) = 18.
%p # with f as in A092938N:= ithprime(50): V:= Vector(N): count:= 0:
%p for n from 1 while count < 50 do
%p v:= f(n);
%p if v <= N and V[v]=0 then count:= count+1; V[v]:= n;
%p fi;
%p od:
%p seq(V[ithprime(i)],i=1..50); # _Robert Israel_, Jul 31 2020
%o (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],","))}
%Y Cf. A092938, A092940.
%K nonn
%O 1,2
%A _Amarnath Murthy_, Mar 23 2004
%E Edited and extended by _Klaus Brockhaus_, Dec 23 2006
|
