OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
3*5 - 2 = 13, a prime, so 3 is a term of the sequence.
MATHEMATICA
Prime[ Select[ Range[1000], PrimeQ[ Prime[ # ]Prime[ # + 1] - 2] &]]
Select[Prime[Range[1000]], PrimeQ[# NextPrime[#]-2]&] (* Harvey P. Dale, Aug 05 2024 *)
PROG
(PARI) lista(nn) = {my(p=2); forprime(q=3, nn, if (isprime(p*q-2), print1(p, ", ")); p = q; ); } \\ Michel Marcus, Sep 28 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Jan 15 2002
STATUS
approved