A299117 Sorted terms of A277781.
4, 8, 9, 16, 18, 24, 25, 27, 32, 36, 40, 48, 49, 50, 54, 56, 64, 72, 75, 80, 81, 88, 96, 98, 100, 104, 108, 112, 120, 121, 125, 128, 135, 136, 144, 147, 152, 160, 162, 168, 169, 176, 180, 184, 189, 192, 196, 200, 208, 216, 224, 225, 232, 240, 242, 243, 245
Offset: 1
Keywords
Links
- Peter Kagey, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
With[{nn = 57}, Take[#, nn] &@ Sort@ Table[SelectFirst[n + Range[7 + n^2], AnyTrue[Power[#, 1/3] & /@ {n #, n #^2}, IntegerQ] &], {n, 8 nn}]] (* Michael De Vlieger, Feb 03 2018 *)
Comments