This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A122755 #10 Dec 29 2023 11:57:20
%S A122755 35,41,81,93,95,97,109,114,149,151,158,159,160,161,162,163,165,169,
%T A122755 171,176
%N 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.
%C A122755 For some reason taking f(m) = last digit of prime(m) doesn't work.
%t A122755 a = Flatten[Table[If[Sum[10 - Mod[Prime[n], 10], {n, 1, m}]/m <= 5, m, {}], {m, 1, 200}]]
%Y A122755 Cf. A101306.
%K A122755 nonn,base,less
%O A122755 1,1
%A A122755 _Roger L. Bagula_, Sep 21 2006
%E A122755 Edited by _N. J. A. Sloane_, Mar 30 2007