|
%I #27 Mar 03 2024 18:50:46
%S 0,3,6,4,7,8,11,14,12,15,16,19,22,20,23,24,27,30,28,31,32,35,38,36,39,
%T 40,43,46,44,47,48,51,54,52,55,56,59,62,60,63,64,67,70,68,71,72,75,78,
%U 76,79,80,83,86,84,87,88,91,94,92,95,96,99,102,100,103,104,107,110,108,111
%N Numbers of the form 8n + [0,3,6,4,7].
%C Sorted sequence is A047515. - _Philippe Deléham_, Feb 23 2013
%H Vincenzo Librandi, <a href="/A222409/b222409.txt">Table of n, a(n) for n = 0..1000</a>
%H Aviezri S. Fraenkel and Yuval Tanny, <a href="http://www.wisdom.weizmann.ac.il/~fraenkel/Papers/Wyt(f)_10.pdf">A class of Wythoff-like games</a>, INTEGERS, to appear, 2013.
%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*(3+3*x-2*x^2+3*x^3+x^4)/((1-x)^2*(1+x+x^2+x^3+x^4)). - _Bruno Berselli_, Feb 23 2013
%p a:= n-> 8*iquo(n, 5, 'r') + [0, 3, 6, 4, 7][r+1]:
%p seq(a(n), n=0..80); # _Alois P. Heinz_, Jun 19 2013
%t CoefficientList[Series[x (3 + 3 x - 2 x^2 + 3 x^3 + x^4) /((1 - x)^2 (1 + x + x^2 + x^3 + x^4)), {x, 0, 40}], x] (* _Vincenzo Librandi_, Jun 19 2013 *)
%t LinearRecurrence[{1, 0, 0, 0, 1, -1}, {0, 3, 6, 4, 7, 8}, 100] (* _Jean-François Alcover_, Feb 18 2016 *)
%o (Magma) m:=70; R<x>:=PowerSeriesRing(Integers(), m); [0] cat Coefficients(R!((3+3*x-2*x^2+3*x^3+x^4)/((1-x)^2*(1+x+x^2+x^3+x^4)))); // _Bruno Berselli_, Feb 23 2013
%Y Cf. A047515, A047614.
%K nonn,easy
%O 0,2
%A _N. J. A. Sloane_, Feb 22 2013
|
