A085128 Multiples of 5 which are members of A002473. Or multiples of 5 with the largest prime divisor <= 7.

5, 10, 15, 20, 25, 30, 35, 40, 45, 50, 60, 70, 75, 80, 90, 100, 105, 120, 125, 135, 140, 150, 160, 175, 180, 200, 210, 225, 240, 245, 250, 270, 280, 300, 315, 320, 350, 360, 375, 400, 405, 420, 450, 480, 490, 500, 525, 540, 560, 600, 625, 630, 640, 675, 700

Offset

1,1

Links

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

Formula

a(n) = 5*A002473(n). - Michel Marcus, Aug 15 2017

Sum_{n>=1} 1/a(n) = 7/8. - Amiram Eldar, Sep 22 2024

Mathematica

With[{p = Prime[Range[4]]}, 5 * Select[Range[140], Times @@ (p^IntegerExponent[#, p]) == # &]] (* Amiram Eldar, Sep 22 2024 *)

Prog

(PARI) lista(nn) = {for (n=1, nn, if (vecmax(factor(5*n)[, 1]) <= 7, print1(5*n, ", ")); ); } \\ Michel Marcus, Aug 15 2017

Crossrefs

Intersection of A008587 (multiples of 5) and A002473 (7-smooth numbers).

Cf. A080194, A085125, A085126, A085127, A085129, A085131, A085132.

Sequence in context: A172328 A330003 A061821 * A313734 A292656 A313735

Adjacent sequences: A085125 A085126 A085127 * A085129 A085130 A085131

Keyword

easy,nonn

Author

Amarnath Murthy, Jul 06 2003

Extensions

More terms from David Wasserman, Jan 28 2005

Offset corrected by Michel Marcus, Aug 15 2017

Status

approved