A145738 a(n) = squarefree part of A145609(n)

3, 1, 1, 761, 61, 509, 1171733, 8431, 39541, 55835135, 36093, 1347822955, 34395742267, 375035183, 9682292227, 586061125622639, 54062195834749, 40030624861, 2053580969474233, 1236275063173, 6657281227331

Offset

1,1

Links

Table of n, a(n) for n=1..21.

Mathematica

m = 1; aa = {}; Do[k = 0; Do[k = k + m^(2 r + 1 - d)/d, {d, 1, 2 r}]; b = Sqrt[Numerator[k]] /. Sqrt[_] -> 1; c = Sqrt[Numerator[k]]/b /. Sqrt[x_] -> x; AppendTo[aa, c], {r, 1, 25}]; aa

Crossrefs

Cf. A128059, A145609, A145738, A145737 (for square parts).

Sequence in context: A368026 A172093 A294402 * A232802 A245201 A211358

Adjacent sequences: A145735 A145736 A145737 * A145739 A145740 A145741

Keyword

nonn

Author

Artur Jasinski, Oct 17 2008

Status

approved