OFFSET
1,1
COMMENTS
For k = 134467800, 275356290 and 443034450, 2*k*(k+1) + 1 is also prime.
MATHEMATICA
Select[Range[28*10^6], AllTrue[{#(#+1)-1, #(#+1)+1, #(#+3)-1, #(#+3)+1, 2#(#+1)-1, 2#(#+3)-1}, PrimeQ]&] (* The program generates the first six terms of the sequence. *) (* Harvey P. Dale, Mar 05 2025 *)
PROG
(PARI) is(k) = !(k%15) && isprime(k*(k+1)-1) && isprime(k*(k+1)+1) && isprime(k*(k+3)-1) && isprime(k*(k+3)+1) && isprime(2*k*(k+1)-1) && isprime(2*k*(k+3)-1); \\ Jinyuan Wang, Mar 20 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Mar 19 2008
EXTENSIONS
Terms corrected by Jinyuan Wang, Mar 20 2020
STATUS
approved
