A363997 - OEIS

%I #9 Aug 02 2023 11:49:16

%S 1,2,3,4,6,7,9,5,10,8,12,15,16,19,14,21,11,22,24,18,27,20,30,31,17,34,

%T 36,37,40,28,42,45,49,51,13,26,52,54,55,38,57,32,64,33,44,66,23,46,69,

%U 35,70,25,50,75,76,79,41,82,56,84,29,58,87,60,90,91,48

%N Position in A088732 of the n-th prime.

%C Every positive integer occurs exactly once.

%e a(7) = 5 because the 7th prime, 19, is the 5th term in A088732.

%t z= 200; t = Table[k = 1; While[p = n + k*(n + 1); ! PrimeQ[p], k++];

%t   p, {n, 0, z}];   (* A088732, after _Frank M Jackson_ *)

%t Flatten[Table[Position[t, Prime[n]], {n, 1, z}]]  (* this sequence *)

%Y Cf. A000040, A088732, A038780, A363998.

%K nonn

%O 1,2

%A _Clark Kimberling_, Jul 11 2023