|
%I #11 Nov 27 2023 00:13:11
%S 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,
%T 28,29,30,31,32,33,34,35,36,37,39,40,41,42,43,44,45,46,47,48,49,50,51,
%U 52,53,54,55,56,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75
%N Not divisible by 19.
%H <a href="/index/Rec#order_19">Index entries for linear recurrences with constant coefficients</a>, signature (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -1).
%t Table[If[Divisible[n,19],Nothing,n],{n,100}] (* or *) DeleteCases[Range[100],_?(Divisible[ #,19]&)] (* _Harvey P. Dale_, Dec 18 2022 *)
%o (Sage) [i for i in range(0,80) if gcd(19, i) == 1]
%K nonn,easy
%O 1,2
%A _Zerinvary Lajos_, May 18 2009
|
