|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|