OFFSET
1,1
COMMENTS
a(608) > 65536. - Michael De Vlieger, Aug 12 2024
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..607 (First 319 terms from N. J. A. Sloane)
MATHEMATICA
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 *)
PROG
def agen(): # generator of terms
yield from (i for i, ai in enumerate(A373805_gen(), 1) if isprime(ai))
print(list(islice(agen(), 66))) # Michael S. Branicky, Aug 12 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Aug 11 2024.
STATUS
approved