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
Links
- G. C. Greubel, Table of n, a(n) for n = 1..1000
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
Comments