login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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 (list; graph; refs; listen; history; text; internal format)
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).
LINKS
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 05:39 EDT 2024. Contains 371235 sequences. (Running on oeis4.)