|
%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
|
