OFFSET
1,1
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = 2*A023242(n) + 3. [Bruno Berselli, Sep 09 2014]
MATHEMATICA
Select[Prime[Range[900]], And@@PrimeQ/@{(# - 3)/2, 2 # + 3} &]
PROG
(Magma) [p: p in PrimesUpTo(7000) | IsPrime((p-3)div 2) and IsPrime(2*p+3)];
(Sage)
def t(i): return 2*i+3
[t(p) for p in primes(5000) if is_prime(t(p)) and is_prime(t(t(p)))] # Bruno Berselli, Sep 09 2014
(PARI) is(n)=isprime(n) && isprime(2*n+3) && isprime((n-3)\2) \\ Charles R Greathouse IV, Sep 09 2014
CROSSREFS
KEYWORD
nonn,easy,less
AUTHOR
Vincenzo Librandi, Sep 09 2014
STATUS
approved