OFFSET
1,2
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).
MATHEMATICA
Table[If[Divisible[n, 19], Nothing, n], {n, 100}] (* or *) DeleteCases[Range[100], _?(Divisible[ #, 19]&)] (* Harvey P. Dale, Dec 18 2022 *)
PROG
(Sage) [i for i in range(0, 80) if gcd(19, i) == 1]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Zerinvary Lajos, May 18 2009
STATUS
approved