A069909 Numbers congruent to +-1, +-4, +-6, +-7 mod 16.

1, 4, 6, 7, 9, 10, 12, 15, 17, 20, 22, 23, 25, 26, 28, 31, 33, 36, 38, 39, 41, 42, 44, 47, 49, 52, 54, 55, 57, 58, 60, 63, 65, 68, 70, 71, 73, 74, 76, 79, 81, 84, 86, 87, 89, 90, 92, 95, 97, 100, 102, 103, 105, 106, 108, 111, 113, 116, 118, 119, 121

Offset

0,2

References

G. E. Andrews et al., q-Engel series expansions and Slater's identities, Quaestiones Math., 24 (2001), 403-416.

Links

Table of n, a(n) for n=0..60.

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

Formula

G.f. x*(1+x)*(x^4+x^3-2*x^2+x+1) / ( (x^4+1)*(x-1)^2 ). - R. J. Mathar, Oct 08 2011

a(0)=1, a(1)=4, a(2)=6, a(3)=7, a(4)=9, a(5)=10, a(n)=2*a(n-1)-a(n-2)- a(n-4)+ 2*a(n-5)-a(n-6). - Harvey P. Dale, Sep 09 2012

Mathematica

Select[Range[130], MemberQ[{1, 4, 6, 7, 9, 10, 12, 15}, Mod[#, 16]]&] (* or *) LinearRecurrence[{2, -1, 0, -1, 2, -1}, {1, 4, 6, 7, 9, 10}, 80] (* Harvey P. Dale, Sep 09 2012 *)

Crossrefs

Cf. A069908, A069910, A069911.

Sequence in context: A174258 A080746 A246362 * A189715 A101993 A370267

Adjacent sequences: A069906 A069907 A069908 * A069910 A069911 A069912

Keyword

nonn

Author

N. J. A. Sloane, May 05 2002

Status

approved