A069908 Numbers congruent to +-2, +-3, +-4 or +-5 mod 16.

2, 3, 4, 5, 11, 12, 13, 14, 18, 19, 20, 21, 27, 28, 29, 30, 34, 35, 36, 37, 43, 44, 45, 46, 50, 51, 52, 53, 59, 60, 61, 62, 66, 67, 68, 69, 75, 76, 77, 78, 82, 83, 84, 85, 91, 92, 93, 94, 98, 99, 100, 101, 107, 108, 109, 110, 114, 115, 116, 117, 123

Offset: 1

Author

N. J. A. Sloane, May 05 2002

Keywords

• nonn

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000
• G. E. Andrews et al., q-Engel series expansions and Slater's identities Quaestiones Math., 24 (2001), 403-416.
• Index entries for linear recurrences with constant coefficients, signature (1,0,0,0,0,0,0,1,-1).

Crossrefs

Cf. A069909, A069910, A069911.

Programs

Mathematica

Select[Range[200], MemberQ[{2, 3, 4, 5, 11, 12, 13, 14}, Mod[#, 16]]&] (* Jean-François Alcover, Apr 09 2014 *)
CoefficientList[Series[(2 + x + x^2 + x^3 + 6 x^4 + x^5 + x^6 + x^7 + 2 x^8)/((1 + x) (x^2 + 1) (x^4 + 1) (x - 1)^2), {x, 0, 80}], x] (* Vincenzo Librandi, Apr 10 2014 *)
LinearRecurrence[{1,0,0,0,0,0,0,1,-1},{2,3,4,5,11,12,13,14,18},70] (* Harvey P. Dale, Dec 16 2015 *)

Formula

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