login
Indices of the primes in A358528.
5

%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