|
| |
|
|
A062787
|
|
a(n) = floor(exp(gamma) n log log n ) - phi(n), where gamma is Euler's constant (A001620).
|
|
1
|
|
|
|
-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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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
|
| |
|
|
