login
A356347
Indices of the primes in A181424.
5
4, 17, 38, 41, 48, 56, 57, 75, 104, 109, 112, 120, 131, 162, 166, 186, 189, 196, 201, 220, 241, 273, 274, 293, 341, 360, 389, 421, 428, 466, 467, 510, 522, 555, 601, 607, 623, 631, 635, 669, 684, 685, 704, 711, 712, 735, 763, 793, 815, 823, 824, 831, 832
OFFSET
1,1
COMMENTS
This sequence, together with A358529 and A358531, partition the set of positive integers >= 3.
FORMULA
a(n) = A064113(n) + 2.
EXAMPLE
n 1 2 3 4 5 6 7
k 4 17 38 41 48 56 57
p(n) 7 59 163 179 223 263 269
MATHEMATICA
t = Select[2 + Range[1440],
Prime[#] - Prime[# - 1] == Prime[# - 1] - Prime[# - 2] &] (* A356347 *)
Prime[t] (* A181424 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Nov 21 2022
STATUS
approved