%I #11 Dec 13 2019 16:59:43
%S 7,17,37,47,67,89,97,103,107,113,127,131,137,151,157,167,179,181,191,
%T 197,223,227,233,257,277,281,283,293,307,311,317,337,347,359,367,373,
%U 383,389,397,419,421,439,443,457,461,463,467,479,487,499,509,523,541
%N Primes p such that 6*p-7 is not prime.
%H Harvey P. Dale, <a href="/A153319/b153319.txt">Table of n, a(n) for n = 1..2000</a>
%t lst={};Do[p=Prime[n];If[ !PrimeQ[6*p-7],AppendTo[lst,p]],{n,6!}];lst
%t Select[Prime[Range[100]],!PrimeQ[6#-7]&] (* _Harvey P. Dale_, Dec 13 2019 *)
%Y Cf. A153134, A153135, A153245
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Dec 23 2008, Jan 02 2009
%E Typo in definition fixed by _Zak Seidov_, Nov 14 2011
|