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

Author

Roger L. Bagula, Sep 21 2006

Keywords

• nonn
• base
• less

Comments

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

Crossrefs

Cf. A101306.

Programs

Mathematica

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

Extensions

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