|
Search: id:A074467
|
|
|
| A074467 |
|
Subscript m such that Phi-Harmonic sequence, fi[m]=Sum[1/EulerPhi[k],{k,1,m}] >= n. |
|
+0
2
|
|
| 1, 2, 4, 8, 13, 22, 38, 63, 105, 177, 296, 495, 828, 1386, 2318, 3879, 6489, 10854, 18158, 30375, 50811, 84998, 142187, 237853, 397885, 665589, 1113411, 1862534, 3115683, 5211973, 8718687
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
REFERENCES
|
J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 177, p. 55, Ellipses, Paris 2008.
|
|
MATHEMATICA
|
{s=0, s1=0}; Do[s=s+(1/EulerPhi[n]); If[Greater[Floor[s], s1], s1=Floor[s]; Print[{n, Floor[s]}]], {n, 1, 1000000}]
|
|
CROSSREFS
|
Cf. A002387, A004080, A046024, A074631, A074633.
Sequence in context: A078157 A144119 A023600 this_sequence A018066 A096573 A000077
Adjacent sequences: A074464 A074465 A074466 this_sequence A074468 A074469 A074470
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Aug 29 2002
|
|
EXTENSIONS
|
More terms from Ryan Propper (rpropper(AT)stanford.edu), Jul 09 2005
|
|
|
Search completed in 0.002 seconds
|
