cp's OEIS Frontend

A192530 Index-list (modified) of the primes generated at A192583.

%I A192530 #6 Jul 16 2015 22:08:02
%S A192530 1,2,3,3,4,5,6,7,9,11,12,13,15,16,19,22,23,24,27,28,33,34,35,39,41,48,
%T A192530 57,61,66,72,95,102,114,117,128,143,148,184,196,227,228,266,302,325,
%U A192530 367,417,471,606,882,916,1071,1539,4305
%N A192530 Index-list (modified) of the primes generated at A192583.
%C A192530 Besides the generated primes 2,5,11,13,17,..., the initial numbers 4,6,8 in A192583 are represented here by index of nearest lower prime.
%e A192530 A192583=(2,4,5,6,8,11,13,17,23,...).  a(1)=1 because the index of 2 is 1; a(2)=2 because, for term #2 of A192530, which is 4, the nearest prime <4 is 3, which has index 2; a(3)=3 because the index of 5 is 3.  ("Nearest prime down" for nonprimes is given by PrimePi in the Mathematica program.)
%t A192530 start = {2, 4, 6, 8}; primes = Table[Prime[n], {n, 1, 10000}];
%t A192530 f[x_, y_] := If[MemberQ[primes, x*y + 1], x*y + 1]
%t A192530 b[x_] :=
%t A192530   Block[{w = x},
%t A192530    Select[Union[
%t A192530      Flatten[AppendTo[w,
%t A192530        Table[f[w[[i]], w[[j]]], {i, 1, Length[w]}, {j, 1, i}]]]], # <
%t A192530       10000000 &]];
%t A192530 t = FixedPoint[b, start]  (* A192583 *)
%t A192530 PrimePi[t] (* A192530 Nonprimes 4,6,8 are represented by "next prime down". *)
%Y A192530 Cf. A192583.
%K A192530 nonn,fini,full
%O A192530 1,2
%A A192530 _Clark Kimberling_, Jul 04 2011