|
%I #17 Mar 08 2020 04:02:54
%S 2,3,4,5,6,9,10,11,12,13,16,17,18,19,20,23,24,25,26,27,30,31,32,33,34,
%T 37,38,39,40,41,44,45,46,47,48,51,52,53,54,55,58,59,60,61,62,65,66,67,
%U 68,69,72,73,74,75,76,79
%N Numbers that are congruent to {2, 3, 4, 5, 6} mod 7.
%H <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (1,0,0,0,1,-1)
%F G.f.: x*(2 + x + x^2 + x^3 + x^4 + x^5) / ( (x^4 + x^3 + x^2 + x + 1)*(x-1)^2 ). - _R. J. Mathar_, Oct 25 2011
%t Select[Range[100],MemberQ[{2,3,4,5,6},Mod[#,7]]&] (* or *) LinearRecurrence[ {1,0,0,0,1,-1},{2,3,4,5,6,9},80] (* _Harvey P. Dale_, Oct 06 2015 *)
%K nonn
%O 1,1
%A _N. J. A. Sloane_
|
