A165362 Integers of pseudo-averages of at least two consecutive nonprime numbers of the form (a+b+c+..+z)/z, which can be expressed only ones.

3, 4, 8, 9, 18, 21, 23, 24, 38, 42, 43, 50, 55

Offset

1,1

Comments

(4+6+8+9)/9=3, (9+10+12+14+15)/15=4,..

Links

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

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

Cf. A165240

Sequence in context: A200727 A096185 A137640 * A245282 A320355 A113057

Adjacent sequences: A165359 A165360 A165361 * A165363 A165364 A165365

Keyword

nonn,uned

Author

Vladimir Joseph Stephan Orlovsky, Sep 16 2009

Status

approved