OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
8 is a term since both 8 and 9 are in A328014.
MATHEMATICA
f[p_, e_] := If[e==1, p, 1]; s[n_] := Times @@ (f @@@ FactorInteger[n]); Select[Range[5040], s[#]^2 < # && s[#+1]^2 < #+1 &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 01 2021
STATUS
approved