A236206 Numbers not divisible by 3, 5 or 7.

1, 2, 4, 8, 11, 13, 16, 17, 19, 22, 23, 26, 29, 31, 32, 34, 37, 38, 41, 43, 44, 46, 47, 52, 53, 58, 59, 61, 62, 64, 67, 68, 71, 73, 74, 76, 79, 82, 83, 86, 88, 89, 92, 94, 97, 101, 103, 104, 106, 107, 109, 113, 116, 118, 121, 122, 124, 127, 128, 131, 134, 136

Offset: 1

Author

Oleg P. Kirillov, Jan 20 2014

Keywords

• nonn
• easy

Comments

Numbers whose odd part is 11-rough: products of terms of A008364 and powers of 2 (terms of A000079). - Peter Munn, Aug 03 2020

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

Links

• Vincenzo Librandi, 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, 1, -1).

Crossrefs

Subsequences: A000079, A008364.

Intersection of any 2 of A160545, A229829, A235933.

Other sequences with similar definitions: A007775, A236217.

Programs

Mathematica

Select[Range[300], Mod[#, 3] > 0 && Mod[#, 5] > 0 && Mod[#, 7] > 0 &] (* T. D. Noe, Feb 05 2014 *)
Select[Range[300],Or@@Divisible[#,{3,5,7}]==False&] (* Harvey P. Dale, Mar 13 2014 *)
Select[Range[150], CoprimeQ[105, #] &] (* Amiram Eldar, Oct 23 2020 *)

Formula

a(n) = a(n-1) + a(n-48) - a(n-49). - Amiram Eldar, Oct 23 2020