OFFSET
1,1
COMMENTS
Disjoint union of the sequences S_k, k >= 1, where S_k is the sequence of p-smooth numbers (numbers whose prime factors are all less than or equal to p), with p = prime(k), that are (k+1)-full but not (k+2)-full numbers (k-full numbers are numbers whose prime factorization exponents are all larger than or equal to k). S_1 contains only the term 4, and S_k is infinite for k >= 2. The sum of the reciprocals of the terms of S_k is rational for all k: 1/4, 25/144, 509579/6480000, ... (see the Formula section).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..12735 (terms below 10^18)
Eric Weisstein's World of Mathematics, Smooth Number.
Wikipedia, Powerful number: Generalization (k-full number).
Wikipedia, Smooth number.
FORMULA
Sum_{n>=1} 1/a(n) = Sum_{k>=1} f(k) = 0.57181100946173735203..., where f(k) = Sum_{i>=1} 1 / S_k(i) = g(k, k) - g(k+1, k), g(e, k) = Product_{j=1..k} (1 + Sum_{i >= e+1} 1/prime(j)^i), and S_k is defined in the Comments section.
EXAMPLE
4 = 2^2 is a term since PrimePi(2) = 1 < 2.
9 = 3^2 is not a term since PrimePi(3) = 2 is not larger than the exponent 2.
MATHEMATICA
Select[Range[2, 33000], Module[{f = FactorInteger[#]}, f[[-1, 1]] < Prime[Min[f[[;; , 2]]]]] &]
PROG
(PARI) isok(k) = if(k == 1, 0, my(f = factor(k), e = f[, 2]); f[#f~, 1] < prime(vecmin(e)));
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jan 31 2025
STATUS
approved
