A160544 Not divisible by 19.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75

Offset: 1

Author

Zerinvary Lajos, May 18 2009

Keywords

• nonn
• easy

Links

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

Programs

Mathematica

Table[If[Divisible[n,19],Nothing,n],{n,100}] (* or *) DeleteCases[Range[100],?(Divisible[ #,19]&)] (* _Harvey P. Dale, Dec 18 2022 *)

Sage

[i for i in range(0,80) if gcd(19, i) == 1]