This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A175758 #11 Feb 15 2020 10:56:22 %S A175758 2,3,5,7,15,22,24,33,40,42,51,55,60,77,108,114,117,126,132,135,144, %T A175758 150,153,162,171,180,195,204,207,216,222,225,234,240,243,252,261,270, %U A175758 285,306,312,315,324,330,333,342,351,360,375,399,402,405,414,420,423,432 %N A175758 Numbers n with property that arithmetic mean of its digits is both an integer and one of the prime factors of n. %H A175758 Harvey P. Dale, <a href="/A175758/b175758.txt">Table of n, a(n) for n = 1..1000</a> %e A175758 15 is in the list because (1+5)/2=3 and 3 is a prime factor of 15. %t A175758 ipfQ[n_]:=Module[{m=Mean[IntegerDigits[n]]},IntegerQ[m]&&MemberQ[ FactorInteger[ n][[All,1]],m]]; Select[Range[2,500],ipfQ] (* _Harvey P. Dale_, Feb 15 2020 *) %Y A175758 Cf. A027746, A175688. %K A175758 nonn,base %O A175758 1,1 %A A175758 _Juri-Stepan Gerasimov_, Aug 28 2010, Aug 29 2010 %E A175758 399 inserted by _D. S. McNeil_, Sep 27 2010