OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Rafael Jakimczuk, Some observations on the greatest prime factor of an integer, Annales Mathematicae Silesianae, Vol. 37, No. 1 (2023), pp. 67-81. See Theorem 2.2, p. 71.
MATHEMATICA
Select[Range[1500], Max[e = FactorInteger[#][[;; , 2]]] < 3 && e[[-1]] == 2 &]
PROG
(PARI) is(n) = {my(e = factor(n)[, 2]); n > 1 && vecmax(e) < 3 && e[#e] == 2; }
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amiram Eldar, Jan 05 2024
STATUS
approved