A138829 Bisection of imperfect numbers A132999.

1, 3, 5, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 61, 63, 65, 67, 69, 71, 73, 75, 77, 79, 81, 83, 85, 87, 89, 91, 93, 95, 97, 99, 101, 103, 105, 107, 109, 111, 113, 115, 117

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

Formula

G.f.: (-x^14 + x^13 - x^4 + x^3 + x + 1)/(x^2 - 2*x + 1). - Alexander R. Povolotsky, Apr 06 2008

Mathematica

CoefficientList[Series[(-x^14 + x^13 - x^4 + x^3 + x + 1)/(x^2 - 2*x + 1), {x, 0, 50}], x] (* G. C. Greubel, Feb 21 2017 *)

Prog

(PARI) x='x+O('x^50); Vec((-x^14 + x^13 - x^4 + x^3 + x + 1)/(x^2 - 2*x + 1)) \\ G. C. Greubel, Feb 21 2017

Crossrefs

Cf. A000396, A099057, A099058, A132999.

Sequence in context: A155945 A096985 A206909 * A003265 A360394 A193714

Adjacent sequences: A138826 A138827 A138828 * A138830 A138831 A138832

Keyword

easy,nonn

Author

Omar E. Pol, Apr 06 2008

Status

approved