|
%I #34 Sep 08 2022 08:45:13
%S 3,6,8,9,12,13,15,18,21,22,23,24,27,28,29,30,33,35,36,38,39,42,43,45,
%T 46,48,50,51,53,54,57,58,60,61,63,64,66,68,69,71,72,73,74,75,78,79,80,
%U 81,83,84,85,87,88,90,92,93,96,97,98,99,100,101,102,103,105,106,108
%N Numbers k such that 4k + 3 is composite.
%C Terms can be written as (4xy +- (x-y)) - 1 for x > 0, y > 0. - _Ron R Spencer_, Aug 01 2016
%C Numbers k such that (4*k)!/(4*k + 3) is an integer. - _Peter Bala_, Jan 25 2017
%H Vincenzo Librandi, <a href="/A095277/b095277.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = (A091236(n) - 3)/4.
%e Distribution of the positive terms in the following triangular array:
%e *;
%e 3, *;
%e *, 8, *;
%e 6, *, 15, *;
%e *, 13, *, 24, *;
%e 9, *, 22, *, 35, *;
%e *, 18, *, 33, *, 48, *;
%e etc., where * marks the noninteger values of (2*h*k + k + h-1)/2 with h >= k >= 1. - _Vincenzo Librandi_, Apr 22 2014
%p for n from 0 to 100 do
%p if irem(factorial(4*n), 4*n+3) = 0 then print(n); end if;
%p end do: # _Peter Bala_, Jan 25 2017
%t Select[Range[150],!PrimeQ[4#+3]&] (* _Harvey P. Dale_, Jul 04 2011 *)
%o (Magma) [n: n in [0..110] |not IsPrime(4*n+3)]; // _Vincenzo Librandi_, Apr 22 2014\
%o (PARI) is(n)=!isprime(4*n+3) \\ _Charles R Greathouse IV_, Aug 01 2016
%Y Complement of A095278. Cf. also A045751, A014076, A153170, A153088, A153329, A153343.
%K nonn,easy
%O 1,1
%A _Antti Karttunen_, Jun 01 2004
|
