

A211778


Composite numbers n such that Sum_{d_<n  n} phi(d_<n) / (d_<n) is integer, where d_<n = divisors of n that are less than n, phi(x) = A000010(x).


1



8, 12, 32, 80, 81, 128, 189, 196, 324, 336, 448, 512, 576, 768, 1600, 1936, 2025, 2048, 2187, 2500, 5292, 5324, 5616, 5780, 8192, 8748, 9477, 11264, 12096, 13520, 14400, 14800, 15552, 15625, 20736, 32768, 35721, 36864, 49152, 53248, 59049, 69696, 73575, 73872
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Complement of primes (A000040) with respect to A211777.


LINKS

Table of n, a(n) for n=1..44.


EXAMPLE

For n = 32 holds: 1/1 + 1/2 + 2/4 + 4/8 + 8/16 = 3 (integer).


MATHEMATICA

t = {}; Do[If[! PrimeQ[n], d2 = Sum[EulerPhi[d]/d, {d, Most[Divisors[n]]}]; If[IntegerQ[d2], AppendTo[t, n]]], {n, 2, 10000}]; t (* T. D. Noe, Apr 26 2012 *)


PROG

(PARI) is(n)=denominator(sumdiv(n, d, if(d<n, eulerphi(d)/d)))==1 && !isprime(n) \\ Charles R Greathouse IV, Mar 05 2013


CROSSREFS

Cf: A066862 (numbers n such that Sum_{d  n} phi(d) / d is integer).
Sequence in context: A217156 A066934 A137148 * A045018 A067681 A132356
Adjacent sequences: A211775 A211776 A211777 * A211779 A211780 A211781


KEYWORD

nonn


AUTHOR

Jaroslav Krizek, Apr 20 2012


EXTENSIONS

Extended by T. D. Noe, Apr 26 2012


STATUS

approved



