A358531 - OEIS

%I #7 Nov 22 2022 22:21:01

%S 6,8,11,13,14,18,20,21,23,26,27,29,32,34,36,39,42,44,46,49,50,53,55,

%T 58,60,61,64,65,68,70,74,76,79,82,84,86,89,90,93,94,96,99,101,103,105,

%U 108,110,113,114,116,117,121,123,127,129,130,132,134,135,137

%N Indices of the primes in A358530.

%C This sequence, together with A358529 and A356347, partition the set of positive integers >= 3.

%F a(n)  = A258026(n) + 2.

%e   n       1   2   3   4   5   6   7

%e   k       6   8  11  13  14  18  20

%e   p(n)   13  19  31  41  43  61  71

%t t = Select[2 + Range[140],

%t Prime[#] - Prime[# - 1] < Prime[# - 1] - Prime[# - 2] &]  (* A358531 *)

%t Prime[t]  (* A358530 *)

%Y Cf. A001223, A258026, A358528, A358529, A358530, A181424, A356347.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, Nov 21 2022