This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A373807 #31 Jul 09 2025 05:04:52
%S A373807 2,4,8,10,13,15,17,23,25,27,37,41,46,48,50,52,55,57,60,62,64,74,76,79,
%T A373807 81,83,88,90,92,94,97,99,115,117,119,124,129,133,138,141,153,156,163,
%U A373807 166,171,173,175,179,181,183,205,207,219,224,226,236,240,245,247,250,254,258,276,278,281,283
%N A373807 Indices of prime terms in A373805.
%C A373807 Please see the comments on A373805 and A373806 for further information.
%C A373807 a(608) > 65536. - _Michael De Vlieger_, Aug 12 2024
%H A373807 Michael De Vlieger, <a href="/A373807/b373807.txt">Table of n, a(n) for n = 1..607</a> (First 319 terms from N. J. A. Sloane)
%t A373807 nn = 2^14; s = j = 1; Reap[Monitor[Do[If[PrimeQ[j], Sow[n - 1]; s = -s; k = Prime[n] + s, k = 2 j + s]; j = k, {n, 2, nn}], n] ][[-1, 1]] (* _Michael De Vlieger_, Aug 12 2024 *)
%o A373807 (Python) # uses imports and A373805_gen in A373805
%o A373807 def agen(): # generator of terms
%o A373807 yield from (i for i, ai in enumerate(A373805_gen(), 1) if isprime(ai))
%o A373807 print(list(islice(agen(), 66))) # _Michael S. Branicky_, Aug 12 2024
%Y A373807 Cf. A373805, A373806.
%K A373807 nonn
%O A373807 1,1
%A A373807 _N. J. A. Sloane_, Aug 11 2024