OFFSET
1,2
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..7806
MATHEMATICA
s = {1}; k = 1; Do[If[GreaterEqual @@ (f = FactorInteger[n])[[;; , 2]] && PrimePi[f[[-1, 1]]] == Length[f], k++; If[Equal @@ IntegerExponent[n, {2, 3}], AppendTo[s, k]]], {n, 2, 10^5}]; s (* Amiram Eldar, Jul 28 2023 *)
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 24 2019
STATUS
approved