OFFSET
1,1
COMMENTS
Up to 10^13 there is only one triple of consecutive numbers, starting at 18140055498, which have the same average of prime factors.
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..1000
EXAMPLE
735 is in the sequence since 735 = 3*5*7^2, 736 = 2^5*23 and (3+5+7+7)/4 = (2+2+2+2+2+23)/6.
MATHEMATICA
avepa[n_] := Block[{f = FactorInteger[n]}, Total[Times @@@ f]/Total[Last /@ f]]; Select[Range[2, 10^5], avepa[#] == avepa[#+1] &]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Giovanni Resta, Jul 26 2013
STATUS
approved