%I #7 Aug 05 2022 17:02:50
%S 1,6,10,12,14,18,20,22,24,26,28,30,34,36,38,40,44,46,48,50,52,54,56,
%T 58,60,62,66,68,70,72,74,76,80,82,86,88,90,92,94,96,98,100,102,104,
%U 106,108,112,116,118,120,122,124,130,132,134,136,138,140,142,144
%N Numbers such that arithmetic mean of distinct prime factors is not an integer.
%C Complement of A078174.
%e For a(14) = 36: 36 = 2^2*3^3; (2+3)/2 is not integer.
%t Join[{1},Select[Range[300],!IntegerQ[Mean[FactorInteger[#][[All,1]]]]&]] (* _Harvey P. Dale_, Aug 05 2022 *)
%K nonn
%O 1,2
%A _Jaroslav Krizek_, Apr 21 2010
%E Corrected and extended by _Harvey P. Dale_, Aug 05 2022
|