login
A177853
Partial sums of A018805.
2
1, 4, 11, 22, 41, 64, 99, 142, 197, 260, 343, 434, 549, 676, 819, 978, 1169, 1372, 1611, 1866, 2145, 2444, 2787, 3146, 3545, 3968, 4427, 4910, 5449, 6004, 6619, 7266, 7953, 8672, 9439, 10230, 11093, 11992, 12939, 13918, 14977, 16060, 17227, 18434, 19689
OFFSET
1,2
LINKS
FORMULA
a(n) ~ 2*n^3/Pi^2. - Vaclav Kotesovec, Sep 14 2021
MATHEMATICA
s=0; lst={}; Do[c={}; Do[Do[AppendTo[c, b/a], {b, z}], {a, z}]; AppendTo[lst, s+=Length[Union@c]], {z, 66}]; lst
Accumulate[Accumulate[2*EulerPhi[Range[60]]]-1] (* Harvey P. Dale, Nov 23 2019 *)
PROG
(Haskell)
a177853 n = a177853_list !! (n-1)
a177853_list = scanl1 (+) a018805_list
-- Reinhard Zumkeller, May 04 2014
CROSSREFS
Sequence in context: A008043 A088003 A049836 * A008016 A295957 A259574
KEYWORD
nonn
AUTHOR
STATUS
approved