|
|
|
|
1, 4, 12, 24, 50, 72, 126, 176, 252, 320, 462, 552, 754, 896, 1080, 1280, 1632, 1836, 2280, 2560, 2940, 3300, 3956, 4320, 5000, 5512, 6210, 6776, 7830, 8340, 9548, 10368, 11352, 12240, 13440, 14256, 15984, 17100, 18486, 19600, 21730, 22764, 25112
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Also number of reduced fractions with denominators <= n and values between 1/n and n (inclusive). [Reinhard Zumkeller, Jan 15 2009]
|
|
LINKS
|
|
|
FORMULA
|
Equals row sums of triangle A143269.
|
|
EXAMPLE
|
a(4) = 24 = sum of row 4 terms of triangle A143269: (4 + 4 + 8 + 8).
a(3) = #{1/3,1/2,2/3,1,4/3,3/2,5/3,2,7/3,5/2,8/3,3} = 12. [Reinhard Zumkeller, Jan 15 2009]
|
|
MATHEMATICA
|
Module[{nn=50, ps}, ps=Accumulate[EulerPhi[Range[nn]]]; Times@@@Thread[{Range[nn], ps}]] (* Harvey P. Dale, Jun 04 2023 *)
|
|
PROG
|
(Python)
from functools import lru_cache
@lru_cache(maxsize=None)
if n == 0:
return 0
c, j = 0, 2
k1 = n//j
while k1 > 1:
j2 = n//k1 + 1
j, k1 = j2, n//j2
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|