A165363 Integers of pseudo-averages of at least two consecutive nonprime numbers of the form (a+b+c+..+z)/z, which can be expressed in more than one way.

6, 7, 10, 11, 12, 13, 14, 15, 16, 17, 20, 22, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 39, 40, 41, 44, 45, 46, 47, 48, 49, 51, 52, 53, 54, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87

Offset

1,1

Comments

(6+8+9+10+12+14+15+16+18)/18=6, (10+12+14+15+16+18+20+21)/21=6, (18+20+21+22+24+25+26)/26=6,..

Links

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

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}]; Union@lst2

Crossrefs

Cf. A165240, A165362

Sequence in context: A164989 A286473 A358432 * A006364 A037301 A163247

Adjacent sequences: A165360 A165361 A165362 * A165364 A165365 A165366

Keyword

nonn,uned

Author

Vladimir Joseph Stephan Orlovsky, Sep 16 2009

Status

approved