Vincenzo Manto

A396898

Created: 6/14/2026 | Author: James C. McMahon and Vincenzo Manto , Jun 09 2026

Indices k such that prime(k) + 2*prime(k+1) is prime.

Sequence Chart

Graph of A396898

Data

2,3,4,5,6,13,14,17,24,26,27,30,31,41,42,43,44,48,53,57,59,62,63,64,65,68,72,82,83,92,94,98,109,112,115,122,137,138,142,143,150,152,153,155,156,157,158,159,162,163,171,172,175,178,186,190,193,201,204,212

Computational Implementations

PYTHON

from sympy import prime, isprime
def q(k): return isprime(prime(k) + 2 * prime(k + 1))
print([k for k in range(1, 213) if q(k)])

Mathematica

q[k_]:=PrimeQ[Prime[k]+2Prime[k+1]];Select[Range[300],q[#]&]

Cross-References

See also OEIS entries: Cf. A094105, A175914, A094104, A000040.