A294997 Numbers n such that the largest digit of n^3 is 7.
3, 14, 15, 23, 26, 30, 54, 55, 56, 63, 65, 67, 78, 91, 105, 111, 121, 126, 133, 135, 137, 140, 147, 150, 163, 167, 168, 173, 176, 188, 197, 226, 230, 245, 256, 258, 260, 273, 276, 291, 293, 295, 300, 318, 321, 343, 346, 375, 376, 385, 386, 397, 415, 417, 418, 424, 425, 488, 497
Offset: 1
Examples
3 is in the sequence because the largest digit of 3^3 = 27 is 7.
Crossrefs
Programs
-
Mathematica
Select[Range[500],Max[IntegerDigits[#^3]]==7&] (* Harvey P. Dale, Sep 10 2019 *)
-
PARI
for(n=1,2e3, vecmax(digits(n^3))==7&&print1(n","))
Comments