OFFSET
1,1
COMMENTS
Primes of the form A299644(k)/2. - Amiram Eldar, Jul 08 2024
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
prime(prime(18)) = 283, prime(prime(19)) = 331. (283 + 331)/2 = 614/2 = 307.
MATHEMATICA
With[{t = Table[Prime[Prime[n]], {n, 1, 400}]}, Select[(Most[t] + Rest[t])/2, PrimeQ]] (* Amiram Eldar, Jul 08 2024 *)
PROG
(PARI) lista(n) = for(x=1, n, y=prime(prime(x+1))+prime(prime(x)); if(y%2==0&isprime(y/2), print1(y\2", ")))
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Sep 10 2004
EXTENSIONS
Offset corrected by Amiram Eldar, Jul 08 2024
STATUS
approved