A078597 Primes of the form p*(p+4)+2 where p and p+4 are primes.
23, 79, 223, 439, 4759, 53359, 77839, 95479, 99223, 159199, 194479, 239119, 378223, 416023, 680623, 2223079, 2595319, 2873023, 3186223, 3515623, 4003999, 5022079, 6456679, 6859159, 8732023, 9235519, 9492559, 10017223, 10595023
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
Mathematica
Select[ #(#+4)+2&/@Select[Prime/@Range[500], PrimeQ[ #+4]&], PrimeQ]
-
PARI
prodtp(n1,n2,a,b)=local(f,x); f=0; forprime(x=n1,n2,if(isprime(x+a),f=x*(x+a)+b; if(isprime(f),print(x" "x+a" "f" "); ); ); ); \ Computes that part of Seq(a,b) with n1<=p<=n2.
Extensions
Edited by Dean Hickerson, Dec 10 2002
Comments