OFFSET
1,1
COMMENTS
(4+6+8+9)/9=3, (9+10+12+14+15)/15=4,..
MATHEMATICA
lst={}; Do[a=0; If[ !PrimeQ[q], Do[If[ !PrimeQ[n], m=n; a+=m; e=a/n; If[IntegerQ[e]&&a!=n, If[e<92, AppendTo[lst, e], Break[]]]], {n, q, 6000}]], {q, 5200}]; lst=Sort@lst; lst1={3}; lst2={}; Do[If[lst[[n]]==lst[[n+1]]||lst[[n]]==lst[[n-1]], AppendTo[lst2, lst[[n]]], AppendTo[lst1, lst[[n]]]], {n, 1, Length[lst]-1, 1}]; lst1
CROSSREFS
KEYWORD
nonn,uned
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 16 2009
STATUS
approved