|
| |
|
|
A065386
|
|
Successive record values of the cototient function (A051953).
|
|
2
| |
|
|
0, 1, 2, 4, 6, 8, 12, 16, 22, 24, 30, 32, 36, 44, 46, 48, 54, 60, 66, 70, 72, 78, 88, 90, 92, 94, 96, 110, 120, 132, 138, 140, 162, 176, 180, 184, 198, 210, 220, 250, 264, 270, 294, 324, 330, 342, 352, 360, 382, 396, 402, 426, 440, 486, 500, 514, 522, 528, 550, 588
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=1,...,1000
|
|
|
FORMULA
| a=0; s=0; Do[s=n-EulerPhi[n]; If[s>a, a=s; Print[s]], {n, 1, 10000}]
|
|
|
EXAMPLE
| a(8)=22 because for m = 1...29 the cototient values are all smaller than cototient(30)=22, where 30=A065385(8) and 22 is the 8th term in the sequence of such local records.
|
|
|
PROG
| (PARI) r=-1; for(n=1, 1000, d=n-eulerphi(n); if(r<d, r=d; print1(r, ", ")))
(PARI) { n=0; x=-1; for (m=1, 10^9, c=m - eulerphi(m); if (c > x, x=c; write("b065386.txt", n++, " ", c); if (n==1000, return)) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Oct 17 2009]
|
|
|
CROSSREFS
| Cototient[A065385(n)].
A006093 gives similar records for the totient function. A002093, A002182, A015702, A005250 are analogous sequences for other functions.
a(n) = A051953[A065385(n)].
Cf. A051953, A065386, A000010.
Sequence in context: A061553 A138934 A008764 * A048951 A058629 A095810
Adjacent sequences: A065383 A065384 A065385 * A065387 A065388 A065389
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Nov 05 2001
|
| |
|
|
