The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A091369 a(n) = Sum_{i=1..n} phi(i)*ceiling(n/i). 3
 1, 3, 7, 12, 20, 27, 39, 50, 64, 77, 97, 112, 136, 155, 177, 200, 232, 255, 291, 318, 350, 381, 425, 456, 500, 537, 581, 620, 676, 713, 773, 820, 872, 921, 979, 1026, 1098, 1153, 1215, 1270, 1350, 1403, 1487, 1550, 1618, 1685, 1777, 1840, 1930, 1999, 2081, 2156 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS FORMULA a(n) = n^2 - A063985(n). - Enrique Pérez Herrero, Feb 25 2012 MAPLE A091369:=n->add(numtheory[phi](i)*ceil(n/i), i=1..n): seq(A091369(n), n=1..100); # Wesley Ivan Hurt, Apr 13 2017 MATHEMATICA A091369[n_] := Sum[EulerPhi[i]*Ceiling[n/i], {i, n}] (* Robert G. Wilson v, Mar 02 2004 *) PROG (PARI) a(n) = sum(k=1, n, eulerphi(k)*ceil(n/k)); \\ Michel Marcus, Apr 13 2017 CROSSREFS Cf. A000217, A063985. Sequence in context: A002498 A172115 A328655 * A036698 A279169 A132273 Adjacent sequences:  A091366 A091367 A091368 * A091370 A091371 A091372 KEYWORD nonn,easy AUTHOR Jon Perry, Mar 01 2004 EXTENSIONS More terms from Robert G. Wilson v, Mar 02 2004 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 2 19:05 EDT 2020. Contains 333190 sequences. (Running on oeis4.)