|
%I #25 Jul 14 2015 15:11:19
%S 1,2,3,4,6,7,8,9,12,13,14,16,17,18,19,21,23,24,26,27,28,29,31,32,34,
%T 36,37,38,39,41,42,43,46,47,48,49,51,52,53,54,56,57,58,59,61,62,63,64,
%U 67,68,69,71,72,73,74,76,78,79,81,82,83,84,86,87,89,91,92,93,94,96,97
%N Numbers not divisible by 5 or 11.
%H Bruno Berselli, <a href="/A236207/b236207.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Rec#order_37">Index entries for linear recurrences with constant coefficients</a>, signature (2, -1, 0, 0, -1, 2, -1, 0, 0, -1, 2, -1, 0, 0, -1, 2, -1, 0, 0, -1, 2, -1, 0, 0, -1, 2, -1, 0, 0, -1, 2, -1, 0, 0, -1, 2, -1).
%t Select[Range[100], Mod[#, 5] > 0 && Mod[#, 11] > 0 &] (* or *) Select[Range[100], Or @@ Divisible[#, {5, 11}] == False &] (* _Bruno Berselli_, Mar 24 2014 *)
%Y Intersection of A047201 and A160542.
%K nonn,easy
%O 1,2
%A _Oleg P. Kirillov_, Jan 20 2014
|
