|
%I #23 Sep 08 2022 08:45:39
%S 2,5,7,8,11,12,14,17,19,20,22,23,26,27,29,32,33,35,37,38,40,41,42,44,
%T 47,50,52,53,54,55,56,57,59,61,62,65,66,67,68,71,72,74,75,77,79,80,82,
%U 83,86,87,88,89,92,95,96,97,98,99,101,102,103,104,105,107,110,112
%N Numbers such that 2*n + 11 is not prime.
%C One less than the associated entry in A155723. [ _R. J. Mathar_, Jan 05 2011]
%H Vincenzo Librandi, <a href="/A153083/b153083.txt">Table of n, a(n) for n = 1..1000</a>
%e Distribution of the terms in the following triangular array:
%e *
%e 2,7;
%e 5,12,19;
%e 8,17,26,35;
%e 11,22,33,44,55;
%e 14,27,40,53,66,79;
%e 17,32,47,62,77,92,107;
%e 20,37,54,71,88,105,122,139;
%e 23,42,61,80,99,118,137,156,175;
%e 26,47,68,89,110,131,152,173,194,215;
%e 29,52,75,98,121,144,167,190,213,236,259;
%e 32,57,82,107,132,157,182,207,232,257,282,307;
%e where * marks the decimal values of (2*h*k + k + h - 5) with h >= k >= 1. - _Vincenzo Librandi_, Jan 16 2013
%t Select[Range[100],!PrimeQ[2#+11]&] (* _Harvey P. Dale_, Jul 18 2011 *)
%o (Magma) [n: n in [1..120] | not IsPrime(2*n + 11)]; // _Vincenzo Librandi_, Nov 21 2012
%Y Cf. A101448, A155546, A155723, A153053.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Dec 18 2008
|
