%I #24 Jul 27 2019 10:10:53
%S 13,37,61,97,109,181,229,277,337,349,397,457,541,709,769,937,1009,
%T 1021,1117,1129,1201,1237,1297,1321,1489,1549,1597,1621,1657,1777,
%U 1861,2029,2221,2377,2389,2437,2521,2557,2617,2749,2857,3001,3049
%N Primes p such that (p-3)/2 is a prime of the form 6k-1.
%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[Prime[Range[500]],Mod[(#-3)/2,6]==5&&PrimeQ[(#-3)/2]&] (* _Harvey P. Dale_, Jul 27 2019 *)
%Y Cf. A038536 and A034937.
%K nonn,easy
%O 1,1
%A _Jud McCranie_
%E Definition corrected by _Jud McCranie_, Jul 26 2019