|
Search: id:A145738
|
|
| |
|
| 3, 1, 1, 761, 61, 509, 1171733, 8431, 39541, 55835135, 36093, 1347822955, 34395742267, 375035183, 9682292227, 586061125622639, 54062195834749, 40030624861, 2053580969474233, 1236275063173, 6657281227331
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
For square parts see A145737.
|
|
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 (*Artur Jasinski*)
|
|
CROSSREFS
|
A128059, A145609, A145738
Sequence in context: A083993 A156727 A010272 this_sequence A095199 A074735 A074090
Adjacent sequences: A145735 A145736 A145737 this_sequence A145739 A145740 A145741
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Oct 17 2008
|
|
|
Search completed in 0.002 seconds
|
