login
A085234
(Greatest power of smallest prime factor of n) < square root(n).
0
6, 10, 14, 15, 18, 20, 21, 22, 26, 28, 30, 33, 34, 35, 36, 38, 39, 42, 44, 46, 50, 51, 52, 54, 55, 57, 58, 60, 62, 65, 66, 68, 69, 70, 72, 74, 75, 76, 77, 78, 82, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95, 98, 99, 100, 102, 104, 105, 106, 108, 110, 111, 114, 115
OFFSET
1,1
COMMENTS
A028233(a(n))^2 < a(n);
a(n)=A085232(n) for n<69: a(69)=120, A085232(69)=122=a(70).
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
Sequence in context: A138592 A357850 A085232 * A057714 A143907 A132982
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 22 2003
STATUS
approved