OFFSET
1,2
COMMENTS
The presence of 1 (which has no prime factors) is for compatibility with A175352.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
EXAMPLE
a(6) = 117 because 117 = 3*3*13 and (3 + 3 + 13)/3 is not an integer.
MATHEMATICA
fQ[n_] := Block[{fi = Flatten[ Table[ #[[1]], {#[[2]]}] & /@ FactorInteger@ n]}, len = Length@ fi; len != 1 && ! IntegerQ[ Plus @@ fi/len]]; Join[{1}, Select[1 + 2 Range@ 356, fQ]] (* Robert G. Wilson v, Aug 31 2010 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Juri-Stepan Gerasimov, Aug 29 2010
EXTENSIONS
Corrected (315, 345 inserted, 355 removed) by R. J. Mathar, Aug 30 2010
STATUS
approved