login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A069058 Numbers n such that A017666(n)=phi(n). 1
1, 18, 72, 162, 648, 1152, 1458, 4608, 5832, 10368, 13122, 41472, 52488, 73728, 93312, 118098, 294912, 373248, 472392, 663552, 839808, 1062882, 2654208, 3359232, 4251528, 4718592, 5971968, 7558272, 9565938, 18874368, 23887872 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Appears to be contained within A195321, i.e. all terms greater than 1 are of the form 18*n^2. - William J. Keith, May 25 2016

It also appears to be contained within A003586, i.e., all the terms below 10^12 are of the form 2^i*3^j. - Giovanni Resta, May 26 2016

LINKS

Giovanni Resta, Table of n, a(n) for n = 1..81 (terms < 10^12)

MATHEMATICA

Select[Range[10^6], Denominator@ Total[1/Divisors@ #] == EulerPhi@ # &] (* Michael De Vlieger, May 25 2016 *)

PROG

(PARI) for(n=1, 2500000, if(denominator(sumdiv(n, k, 1/k)) == eulerphi(n), print1(n, ", ")))

(PARI) isok(n) = denominator(sigma(n)/n) == eulerphi(n); \\ Michel Marcus, May 26 2016

CROSSREFS

Cf. A195321.

Sequence in context: A274577 A347360 A195321 * A262000 A007276 A052619

Adjacent sequences:  A069055 A069056 A069057 * A069059 A069060 A069061

KEYWORD

easy,nonn

AUTHOR

Benoit Cloitre, Apr 04 2002

EXTENSIONS

More terms from Rick L. Shepherd, Apr 16 2002

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 25 17:13 EDT 2021. Contains 348255 sequences. (Running on oeis4.)