A088383 Numbers greater than the 4th power of their smallest prime factor.

18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 87, 88, 90, 92, 93, 94, 96, 98, 99, 100, 102, 104, 105, 106, 108, 110, 111, 112, 114, 116, 117, 118, 120, 122, 123, 124, 126

Offset: 1

Author

Reinhard Zumkeller, Sep 28 2003

Keywords

• nonn

Comments

a(n) > A020639(a(n))^4 = A088379(a(n)); complement of A088382.

a(n) > A088382(k) for n <= 67, a(n) < A088382(k) for n > 67.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A088381, A080257, A020639, A088379, A088382.

Positions of numbers greater than 4 in A307908.

Programs

Haskell

a088383 n = a088383_list !! (n-1)
a088383_list = [x | x <- [1..], x  a020639 x ^ 4]
-- Reinhard Zumkeller, Feb 06 2015

Mathematica

Select[Range[200],#>(FactorInteger[#][[1,1]])^4&] (* Harvey P. Dale, Aug 15 2015 *)