A145671
a(n) = number of components of the graph P(n,3) (defined in Comments).
Original entry on oeis.org
1, 2, 4, 8, 15, 32, 88, 209, 539, 1403, 3698, 9962, 26447, 71579, 196590, 541473, 1501720, 4186566, 11737617, 33005599, 93296302
Offset: 1
Cf.
A145667,
A145668,
A145669,
A145670,
A145672,
A145673,
A145674,
A158576,
A158577,
A158578,
A158579.
A145660
a(n) = numerator of polynomial of genus 1 and level n for m = 4 = A[1,n](4).
Original entry on oeis.org
0, 4, 18, 220, 883, 17672, 23566, 659868, 5278979, 95021762, 380087174, 16723836916, 66895348819, 3478558152448, 13914232622662, 11131386100532, 178102177617521, 3027737019533893, 4036982692723202, 306810684647167556
Offset: 1
-
A145660 := proc(n) add( 4^(n-d)/d,d=1..n-1) ; numer(%) ; end proc: # R. J. Mathar, Feb 01 2011
-
m = 4; aa = {}; Do[k = 0; Do[k = k + m^(r - d)/d, {d, 1, r - 1}]; AppendTo[aa, Numerator[k]], {r, 1, 30}]; aa
Comments