A049637 Congruent to 2, 3, 6, 8, 10 or 12 mod 13, but not equal to 3.
2, 6, 8, 10, 12, 15, 16, 19, 21, 23, 25, 28, 29, 32, 34, 36, 38, 41, 42, 45, 47, 49, 51, 54, 55, 58, 60, 62, 64, 67, 68, 71, 73, 75, 77, 80, 81, 84, 86, 88, 90, 93, 94, 97, 99, 101, 103, 106, 107, 110, 112, 114, 116, 119, 120, 123, 125, 127, 129, 132, 133, 136, 138, 140, 142, 145, 146
Offset: 0
Links
- G. C. Greubel, Table of n, a(n) for n = 0..1000
- Index entries for linear recurrences with constant coefficients, signature (0,1,1,0,-1).
Programs
-
Mathematica
CoefficientList[Series[2 - x*(-6 - 8*x - 4*x^2 + 2*x^3 + 3*x^4)/((1 + x)*(1 + x + x^2)*(x - 1)^2), {x, 0, 50}], x] (* G. C. Greubel, Dec 15 2017 *) LinearRecurrence[{0,1,1,0,-1},{2,6,8,10,12,15},70] (* Harvey P. Dale, Apr 21 2019 *) -
PARI
x='x+O('x^30); Vec(2 - x*(-6 - 8*x - 4*x^2 + 2*x^3 + 3*x^4)/((1 + x)*(1 + x + x^2)*(x - 1)^2)) \\ G. C. Greubel, Dec 15 2017
Formula
G.f.: 2 - x*(-6-8*x-4*x^2+2*x^3+3*x^4) / ( (1+x)*(1+x+x^2)*(x-1)^2 ). - R. J. Mathar, Oct 26 2015
Extensions
Terms a(38) onward added by G. C. Greubel, Dec 15 2017
Comments