A122755 Let f(m) = 10 - last digit of prime(m). Sequence gives numbers n such that (1/n)*Sum_{ m <= n } f(m) is <= 5.

35, 41, 81, 93, 95, 97, 109, 114, 149, 151, 158, 159, 160, 161, 162, 163, 165, 169, 171, 176

Offset

1,1

Comments

For some reason taking f(m) = last digit of prime(m) doesn't work.

Links

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

Mathematica

a = Flatten[Table[If[Sum[10 - Mod[Prime[n], 10], {n, 1, m}]/m <= 5, m, {}], {m, 1, 200}]]

Crossrefs

Cf. A101306.

Sequence in context: A219799 A217007 A141741 * A298156 A167326 A141638

Adjacent sequences: A122752 A122753 A122754 * A122756 A122757 A122758

Keyword

nonn,base,less

Author

Roger L. Bagula, Sep 21 2006

Extensions

Edited by N. J. A. Sloane, Mar 30 2007

Status

approved