|
Search: id:A065390
|
|
| |
|
| 1, 3, 7, 12, 18, 28, 31, 39, 42, 56, 72, 91, 96, 98, 168, 195, 252, 280, 312, 360, 372, 392, 546, 576, 744, 840, 864, 992, 1092, 1170, 1344, 1512, 1680, 1860, 1872, 2016, 2240, 2418, 2880, 3224, 3600, 3844, 4320, 4368, 4914, 5082, 5952, 6045, 6552, 7440
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Harry J. Smith, Table of n, a(n) for n=1,...,500
|
|
FORMULA
|
a=0; s=0; Do[s=DivisorSigma[1, EulerPhi[n]]; If[s>a, a=s; Print[s]], {n, 1, 10000}]
|
|
PROGRAM
|
(PARI) { n=r=0; for (m=1, 10^9, x=sigma(eulerphi(m)); if (x > r, r=x; write("b065390.txt", n++, " ", x); if (n==500, return)) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Oct 18 2009]
|
|
CROSSREFS
|
Cf. A062402, A000203, A000010, A065389-A065394.
Sequence in context: A024388 A109638 A008332 this_sequence A062714 A006317 A077043
Adjacent sequences: A065387 A065388 A065389 this_sequence A065391 A065392 A065393
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Nov 05 2001
|
|
|
Search completed in 0.002 seconds
|
