%I #7 Nov 19 2019 14:44:32
%S 35,37,65,67,77,79,95,97,125,127,155,157,161,163,209,211,221,223,275,
%T 277,305,307,329,331,335,337,365,367,371,373,377,379,395,397,407,409,
%U 437,439,455,457,485,487,497,499,539,541,545,547,575,577,605,607,611
%N Numbers of the form 6*k-+1 such that 6*k-1=nonprime and 6*k+1=prime.
%H Harvey P. Dale, <a href="/A172016/b172016.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[#+{-1,1}&/@(6Range[200]),CompositeQ[#[[1]]]&&PrimeQ[#[[2]]]&]// Flatten (* _Harvey P. Dale_, Nov 19 2019 *)
%Y A171688 U A171697 U A172015 U A172016 = A007310.
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Jan 22 2010
%E Entries checked by _R. J. Mathar_, Apr 14 2010
|