Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #29 Aug 12 2024 12:08:51
%S 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 81,83,88,90,92,94,97,99,115,117,119,124,129,133,138,141,153,156,163,
%U 166,171,173,175,179,181,183,205,207,219,224,226,236,240,245,247,250,254,258,276,278,281,283
%N Indices of prime terms in A373805.
%C Please see the comments on A373805 and A373806 for further information.
%C a(608) > 65536. - _Michael De Vlieger_, Aug 12 2024
%H 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 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 (Python) # uses imports and A373805_gen in A373805
%o def agen(): # generator of terms
%o yield from (i for i, ai in enumerate(A373805_gen(), 1) if isprime(ai))
%o print(list(islice(agen(), 66))) # _Michael S. Branicky_, Aug 12 2024
%Y Cf. A373805, A373806.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Aug 11 2024.