|
%I #29 Dec 17 2021 09:52:05
%S 0,1,2,3,5,6,7,8,9,11,12,13,14,15,17,18,19,20,21,23,24,25,26,27,29,30,
%T 31,32,33,35,36,37,38,39,41,42,43,44,45,47,48,49,50,51,53,54,55,56,57,
%U 59,60,61,62,63,65,66,67
%N Numbers that are congruent to {0, 1, 2, 3, 5} mod 6.
%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*(1+x)*(x^3 + x^2 + 1) / ( (x^4 + x^3 + x^2 + x + 1)*(x-1)^2 ). - _R. J. Mathar_, Oct 08 2011
%F Sum_{n>=2} (-1)^n/a(n) = (3-2*sqrt(3))*Pi/36 + log(2+sqrt(3))/sqrt(3). - _Amiram Eldar_, Dec 17 2021
%t Flatten[# + {0, 1, 2, 3, 5} & /@ (6 Range[0, 11])] (* or *)
%t Select[Range[0, 67], MemberQ[{0, 1, 2, 3, 5}, Mod[#, 6]] &] (* _Robert G. Wilson v_, Sep 26 2016 *)
%t LinearRecurrence[{1,0,0,0,1,-1},{0,1,2,3,5,6},60] (* _Harvey P. Dale_, Jul 20 2020 *)
%Y Cf. A047226.
%K nonn,easy
%O 1,3
%A _N. J. A. Sloane_
|
