A085233 Numbers k such that k is divisible by a power of its smallest prime factor that exceeds its square root.

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

Author

Reinhard Zumkeller, Jun 22 2003

Keywords

• nonn
• easy

Links

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

Crossrefs

Cf. A028233, A116882\{1} (even terms).

Subsequence of A085231.

Programs

Mathematica

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

Formula

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

Extensions

Edited by Peter Munn, Jun 01 2025