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,2

Comments

Complement of A078174.

Links

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

Example

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

Mathematica

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

Crossrefs

Sequence in context: A054741 A177712 A176552 * A174164 A098902 A100367

Adjacent sequences: A176584 A176585 A176586 * A176588 A176589 A176590

Keyword

nonn

Author

Jaroslav Krizek, Apr 21 2010

Extensions

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

Status

approved