login
This site is supported by donations 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

Table of n, a(n) for n=1..64.

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: A068993 A138592 A085232 * A057714 A143907 A132982

Adjacent sequences:  A085231 A085232 A085233 * A085235 A085236 A085237

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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 21 21:14 EDT 2019. Contains 325199 sequences. (Running on oeis4.)