A222409 Numbers of the form 8n + [0,3,6,4,7].

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, 40, 43, 46, 44, 47, 48, 51, 54, 52, 55, 56, 59, 62, 60, 63, 64, 67, 70, 68, 71, 72, 75, 78, 76, 79, 80, 83, 86, 84, 87, 88, 91, 94, 92, 95, 96, 99, 102, 100, 103, 104, 107, 110, 108, 111

Offset

0,2

Comments

Sorted sequence is A047515. - Philippe Deléham, Feb 23 2013

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Aviezri S. Fraenkel and Yuval Tanny, A class of Wythoff-like games, INTEGERS, to appear, 2013.

Index entries for linear recurrences with constant coefficients, signature (1, 0, 0, 0, 1, -1).

Formula

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

Maple

a:= n-> 8*iquo(n, 5, 'r') + [0, 3, 6, 4, 7][r+1]:
seq(a(n), n=0..80);  # Alois P. Heinz, Jun 19 2013

Mathematica

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 *)
LinearRecurrence[{1, 0, 0, 0, 1, -1}, {0, 3, 6, 4, 7, 8}, 100] (* Jean-François Alcover, Feb 18 2016 *)

Prog

(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

Crossrefs

Cf. A047515, A047614.

Sequence in context: A090963 A112374 A338014 * A093064 A197568 A136612

Adjacent sequences: A222406 A222407 A222408 * A222410 A222411 A222412

Keyword

nonn,easy

Author

N. J. A. Sloane, Feb 22 2013

Status

approved