|
%I #22 Sep 08 2022 08:45:39
%S 7,12,14,17,21,22,25,27,28,32,35,36,37,38,42,47,49,51,52,55,56,57,58,
%T 62,63,64,67,69,70,72,74,77,80,82,84,87,89,90,91,92,93,97,98,102,103,
%U 105,106,107,112,113,116,117,119,120,122,123,124,126,127,129,131,132,133
%N Numbers n>1 such that 6*n-7 is not prime.
%C One more than the associated value in A046953. - _R. J. Mathar_, Jan 05 2011
%H Vincenzo Librandi, <a href="/A153245/b153245.txt">Table of n, a(n) for n = 1..1000</a>
%e Distribution of the terms in the following triangular array:
%e *;
%e *,*;
%e *,7,*;
%e *,*,*,*;
%e *,*,14,*,*;
%e *,12,*,*,25,*;
%e *, *,*,*,*, *,*;
%e *,*,21,*,*,38,*,*;
%e *,17,*,*,36,*,*,55,*;
%e *,*, *,*,*, *,*,*, *,*;
%e *,*,28,*,*,51,*,*,74,*,*;
%e *,22,*,*,47,*,*,72,*,*,97,*; etc.
%e where * marks the non-integer values of (2*h*k + k + h + 4)/3 with h >= k >= 1. - _Vincenzo Librandi_, Jan 17 2013
%t Select[Range[2, 200], !PrimeQ[6 # - 7] &] (* _Vincenzo Librandi_, Jan 12 2013 *)
%o (Magma) [n: n in [2..150] | not IsPrime(6*n - 7)]; // _Vincenzo Librandi_, Jan 12 2013
%Y Cf. A046953, A153134, A153135.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Dec 21 2008
%E More terms from _Vladimir Joseph Stephan Orlovsky_, Dec 23 2008
|
