OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Rafael Jakimczuk, The kernel of powerful numbers, International Mathematical Forum, Vol. 12, No. 15 (2017), pp. 721-730, Theorem 2.7, p. 729.
FORMULA
MATHEMATICA
Accumulate[Select[Range[10000], # == 1 || Min[FactorInteger[#][[;; , 2]]] > 2 &]]
PROG
(PARI) lista(kmax) = {my(s = 0); for(k = 1, kmax, if(k==1 || vecmin(factor(k)[, 2]) > 2, s += k; print1(s, ", "))); }
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, May 13 2023
STATUS
approved