login
Primes p of the form 6k-1 such that 2*p + 3 is prime.
1

%I #27 Jul 28 2019 15:59:49

%S 5,17,29,47,53,89,113,137,167,173,197,227,269,353,383,467,503,509,557,

%T 563,599,617,647,659,743,773,797,809,827,887,929,1013,1109,1187,1193,

%U 1217,1259,1277,1307,1373,1427,1499,1523,1553,1559,1583,1607,1613,1733

%N Primes p of the form 6k-1 such that 2*p + 3 is prime.

%C Related to hyperperfect numbers of a certain form (form 1, theorem 1 in "A Study of Hyperperfect Numbers").

%H J. S. McCranie, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL3/mccranie.html">A study of hyperperfect numbers</a>, J. Int. Seqs. Vol. 3 (2000) #P00.1.3.

%t Select[Range[5,2000,6],AllTrue[{#,2#+3},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jul 27 2019 *)

%Y Cf. A038536 and A034938.

%K nonn,easy

%O 1,1

%A _Jud McCranie_

%E Definition corrected by _Jud McCranie_, Jul 26 2019