OFFSET
1,1
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
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