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

Author

Omar E. Pol, Apr 06 2008

Keywords

• easy
• nonn

Links

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

Crossrefs

Cf. A000396, A099057, A099058, A132999.

Programs

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

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

Formula

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