A236217 Numbers not divisible by 3, 5 or 11.

1, 2, 4, 7, 8, 13, 14, 16, 17, 19, 23, 26, 28, 29, 31, 32, 34, 37, 38, 41, 43, 46, 47, 49, 52, 53, 56, 58, 59, 61, 62, 64, 67, 68, 71, 73, 74, 76, 79, 82, 83, 86, 89, 91, 92, 94, 97, 98, 101, 103, 104, 106, 107, 109, 112, 113, 116, 118, 119, 122, 124, 127, 128

Offset: 1

Author

Oleg P. Kirillov, Jan 20 2014

Keywords

• nonn
• easy

Comments

Numbers coprime to 165. The asymptotic density of this sequence is 16/33. - Amiram Eldar, Oct 23 2020

Links

• Bruno Berselli, Table of n, a(n) for n = 1..1000
• Index entries for linear recurrences with constant coefficients, signature (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -1).

Crossrefs

Intersection of: A160542 and A229829; A047201 and A229968; A001651, A047201 and A160542.

Cf. A236206, A236208.

Programs

Mathematica

Select[Range[200], Mod[#, 3] > 0 && Mod[#, 5] > 0 && Mod[#, 11] > 0 &] (* or *) Select[Range[200], Or @@ Divisible[#, {3, 5, 11}] == False &] (* Bruno Berselli, Mar 24 2014 *)
Select[Range[130], CoprimeQ[165, #] &] (* Amiram Eldar, Oct 23 2020 *)

Formula

a(n) = a(n-1) + a(n-80) - a(n-81) for n > 81. - Bruno Berselli, Mar 25 2014