A176587 Numbers such that arithmetic mean of distinct prime factors is not an integer.

1, 6, 10, 12, 14, 18, 20, 22, 24, 26, 28, 30, 34, 36, 38, 40, 44, 46, 48, 50, 52, 54, 56, 58, 60, 62, 66, 68, 70, 72, 74, 76, 80, 82, 86, 88, 90, 92, 94, 96, 98, 100, 102, 104, 106, 108, 112, 116, 118, 120, 122, 124, 130, 132, 134, 136, 138, 140, 142, 144

Offset: 1

Author

Jaroslav Krizek, Apr 21 2010

Keywords

• nonn

Comments

Complement of A078174.

Examples

			For a(14) = 36: 36 = 2^2*3^3; (2+3)/2 is not integer.
		

Programs

Mathematica

Join[{1},Select[Range[300],!IntegerQ[Mean[FactorInteger[#][[All,1]]]]&]] (* Harvey P. Dale, Aug 05 2022 *)

Extensions

Corrected and extended by Harvey P. Dale, Aug 05 2022