A062787 a(n) = floor(exp(gamma) n log log n ) - phi(n), where gamma is Euler's constant (A001620).

-3, -2, 0, 0, 4, 2, 6, 6, 10, 7, 15, 9, 18, 18, 21, 15, 28, 18, 31, 29, 34, 24, 41, 32, 42, 39, 48, 34, 57, 38, 54, 53, 60, 55, 69, 48, 69, 66, 76, 55, 86, 59, 84, 83, 87, 66, 99, 76, 101, 92, 103, 78, 115, 95, 114, 105, 116, 89, 134, 93, 126, 123, 130, 117, 148, 105, 142, 133

Offset

2,1

Links

Harry J. Smith, Table of n, a(n) for n = 2..1000

Mathematica

Table[Floor[N[Exp[EulerGamma] * n * Log[Log[n]] - EulerPhi[n], 20]], {n, 2, 70}] (* G. C. Greubel, Dec 31 2016 *)

Prog

(PARI) for(n=2, 24, print(floor(exp(Euler)*n*log(log(n)))-eulerphi(n)))
(PARI) { default(realprecision, 50); c=exp(Euler); for (n=2, 1000, write("b062787.txt", n, " ", c*n*log(log(n))\1 - eulerphi(n)) ) } \\ Harry J. Smith, Aug 11 2009

Crossrefs

Cf. A058209.

Sequence in context: A170849 A292260 A322114 * A131370 A261180 A062707

Adjacent sequences: A062784 A062785 A062786 * A062788 A062789 A062790

Keyword

easy,sign

Author

Jason Earls, Jul 18 2001

Extensions

More terms added by Harry J. Smith, Aug 11 2009

Status

approved