OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
15 is in the list because (1+5)/2=3 and 3 is a prime factor of 15.
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Juri-Stepan Gerasimov, Aug 28 2010, Aug 29 2010
EXTENSIONS
399 inserted by D. S. McNeil, Sep 27 2010
STATUS
approved