A085233 (Greatest power of smallest prime factor of n) > square root(n).

2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 16, 17, 19, 23, 24, 25, 27, 29, 31, 32, 37, 40, 41, 43, 45, 47, 48, 49, 53, 56, 59, 61, 63, 64, 67, 71, 73, 79, 80, 81, 83, 89, 96, 97, 101, 103, 107, 109, 112, 113, 121, 125, 127, 128, 131, 135, 137, 139, 144, 149, 151, 157, 160

Offset

1,1

Comments

A028233(a(n))^2 > a(n).

Links

Ivan Neretin, Table of n, a(n) for n = 1..10000

Mathematica

Select[Range[160], #[[1]]^(2 #[[2]]) &@FactorInteger[#][[1]] > # &] (* Ivan Neretin, Dec 30 2015 *)

Crossrefs

Sequence in context: A364160 A304686 A354921 * A357861 A133813 A326836

Adjacent sequences: A085230 A085231 A085232 * A085234 A085235 A085236

Keyword

nonn

Author

Reinhard Zumkeller, Jun 22 2003

Status

approved