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

Author

N. J. A. Sloane, May 05 2002

Keywords

• nonn

References

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

Links

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

Crossrefs

Cf. A069908, A069910, A069911.

Programs

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 *)

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