OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
f[p_, e_] := p^(2^Floor[Log2[e + 1]] - 1); s[1] = Nothing; s[n_] := Module[{v = Times @@ f @@@ FactorInteger[n]}, If[v == n, Nothing, v]]; Array[s, 300] (* Amiram Eldar, Apr 29 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Feb 25 2017
EXTENSIONS
More terms from Peter J. C. Moses, Feb 25 2017
STATUS
approved