OFFSET
1,1
MAPLE
isA085234 := proc(n)
if A028233(n)^2 < n then
true;
else
false;
end if;
end proc:
for n from 1 to 115 do
if isA085234(n) then
printf("%d, ", n);
end if;
end do: # R. J. Mathar, Jul 09 2016
MATHEMATICA
okQ[n_] := Power @@ FactorInteger[n][[1]] < Sqrt[n]; Select[Range[120], okQ] (* Jean-François Alcover, Feb 13 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 22 2003
STATUS
approved