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 A085128 #29 Sep 23 2024 09:27:58
%S A085128 5,10,15,20,25,30,35,40,45,50,60,70,75,80,90,100,105,120,125,135,140,
%T A085128 150,160,175,180,200,210,225,240,245,250,270,280,300,315,320,350,360,
%U A085128 375,400,405,420,450,480,490,500,525,540,560,600,625,630,640,675,700
%N A085128 Multiples of 5 which are members of A002473. Or multiples of 5 with the largest prime divisor <= 7.
%F A085128 a(n) = 5*A002473(n). - _Michel Marcus_, Aug 15 2017
%F A085128 Sum_{n>=1} 1/a(n) = 7/8. - _Amiram Eldar_, Sep 22 2024
%t A085128 With[{p = Prime[Range[4]]}, 5 * Select[Range[140], Times @@ (p^IntegerExponent[#, p]) == # &]] (* _Amiram Eldar_, Sep 22 2024 *)
%o A085128 (PARI) lista(nn) = {for (n=1, nn, if (vecmax(factor(5*n)[,1]) <= 7, print1(5*n, ", ")););} \\ _Michel Marcus_, Aug 15 2017
%Y A085128 Intersection of A008587 (multiples of 5) and A002473 (7-smooth numbers).
%Y A085128 Cf. A080194, A085125, A085126, A085127, A085129, A085131, A085132.
%K A085128 easy,nonn
%O A085128 1,1
%A A085128 _Amarnath Murthy_, Jul 06 2003
%E A085128 More terms from _David Wasserman_, Jan 28 2005
%E A085128 Offset corrected by _Michel Marcus_, Aug 15 2017