STATUS
proposed
approved
proposed
approved
editing
proposed
editing
proposed
smooth7Q[n_] := n == Times@@({2, 3, 5, 7}^IntegerExponent[n, {2, 3, 5, 7}]);
Select[Range[1000], smooth7Q] // Differences (* Jean-François Alcover, Oct 17 2021 *)
approved
editing
editing
approved
nonn,look,changed
proposed
editing
editing
proposed
a(23) = 3 as A002473(23 + 1) - A002473(23) = 35 - 32 = 3. - David A. Corneth, Mar 31 2021
David A. Corneth, <a href="/A086247/b086247.txt">Table of n, a(n) for n = 1..10000</a>
approved
editing