%I #10 May 08 2024 08:52:15
%S 3,5,7,9,10,12,15,16,19,22,24,25,28,30,31,33,35,37,40,43,45,47,51,52,
%T 54,59,62,63,66,67,69,71,72,73,77,78,80,81,83,85,87,88,91,92,95,97,98,
%U 100,102,106,107,111,115,118,119,122,124,125,126,128,133,136
%N Indices of the primes in A358528.
%C This sequence, together with A358531 and A356347, partition the set of positive integers >= 3.
%F a(n) = A233671(n) + 1.
%e n 1 2 3 4 5 6 7
%e k 3 5 7 9 10 12 15
%e p(n) 5 11 17 23 29 37 47
%t t = Select[2 + Range[140],
%t Prime[#] - Prime[# - 1] > Prime[# - 1] - Prime[# - 2] &] (* A358529 *)
%t Prime[t] (* A358528 *)
%Y Cf. A358528, A358530, A358531, A181424, A356347.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Nov 21 2022