A092728 Primes prime(k) such that prime(k)*prime(k+1)-4 is a prime.

2, 3, 5, 7, 11, 19, 41, 43, 71, 79, 89, 101, 113, 127, 139, 197, 229, 359, 397, 431, 463, 499, 683, 709, 773, 857, 881, 967, 1009, 1031, 1109, 1151, 1213, 1279, 1297, 1373, 1423, 1427, 1447, 1451, 1559, 1597, 1607, 1699, 1783, 1787, 1823, 1951, 1993, 2081

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

Primes:= [seq(ithprime(i), i=1..1000)]:
Primes[select(t -> isprime(Primes[t]*Primes[t+1]-4), [$1..999])]; # Robert Israel, Jan 10 2019

Mathematica

Transpose[Select[Partition[Prime[Range[500]], 2, 1], PrimeQ[Times@@#- 4]&]] [[1]] (* Harvey P. Dale, Jan 22 2012 *)

Crossrefs

Sequence in context: A215161 A227907 A118985 * A089769 A033274 A071062

Adjacent sequences: A092725 A092726 A092727 * A092729 A092730 A092731

Keyword

nonn

Author

Giovanni Teofilatto, Apr 12 2004

Extensions

Corrected and extended by Harvey P. Dale, Jan 22 2012

Name edited by Robert Israel, Jan 10 2019

Status

approved