login
A092728
Primes prime(k) such that prime(k)*prime(k+1)-4 is a prime.
1
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
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
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