|
%I #15 Jan 23 2022 20:04:00
%S 0,2,4,6,7,8,10,12,14,15,16,17,18,20,22,24,26,27,28,29,30,32,34,36,37,
%T 38,39,40,42,43,44,46,47,48,50,52,54,55,56,57,58,60,61,62,64,66,67,68,
%U 70,71,72,74,76,77,78,80,81,82,83,84,85,86,87,88,90,92,94,95,96,97,98,99,100
%N Numbers k such that 3*k + 4 is not prime.
%C Complement of A034936. - _Omar E. Pol_, Jan 18 2009
%H Vincenzo Librandi, <a href="/A153282/b153282.txt">Table of n, a(n) for n = 1..1000</a>
%e Distribution of the odd terms in the following triangular array:
%e *;
%e *,7;
%e *,*,15;
%e *,*,*,*;
%e *,17.*,*,39;
%e *,*,29,*,*,55;
%e *,*, *,*,*,*, *;
%e *,27,*,*,61,*,*,95;
%e *,*,43,*,*,81,*,*,119;
%e *,*, *,*,*,*, *,*, *, *;
%e *,37,*,*,83,*,*,129,*,*,175;
%e *,*,57,*,*,107,*,*,157,*,*,207; etc.
%e where * marks the non-integer values of (4*h*k + 2*k + 2*h - 3)/3 with h >= k >= 1. - _Vincenzo Librandi_, Jan 17 2013
%t Select[Range[0, 200], !PrimeQ[3*# + 4]&] (* _Vincenzo Librandi_, Jan 12 2013 *)
%o (Magma) [n: n in [0..150] | not IsPrime(3*n + 4)]; // _Vincenzo Librandi_, Jan 12 2013
%Y Cf. A034936.
%K nonn,easy
%O 1,2
%A _Vincenzo Librandi_, Dec 23 2008
%E Edited (and terms confirmed) by _N. J. A. Sloane_, Jan 18 2009
|
