A294998 Numbers n such that the largest digit of n^3 is 8.
2, 12, 18, 20, 22, 24, 32, 35, 38, 42, 44, 47, 52, 53, 62, 72, 75, 82, 83, 87, 88, 92, 93, 94, 95, 96, 102, 104, 114, 115, 120, 122, 123, 127, 138, 141, 142, 145, 152, 153, 155, 161, 162, 172, 174, 180, 182, 183, 186, 192, 194, 195, 200, 201, 202, 203, 205, 206, 217, 220, 228, 232, 238, 240, 242, 244, 251
Offset: 1
Examples
12 is in the sequence because the largest digit of 12^3 = 1728 is 8.
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Maple
filter:= n -> max(convert(n^3,base,10))=8: select(filter, [$1..1000]); # Robert Israel, Jul 03 2020
-
Mathematica
Select[Range[300],Max[IntegerDigits[#^3]]==8&] (* Harvey P. Dale, Aug 21 2019 *)
-
PARI
for(n=1,500, vecmax(digits(n^3))==8&&print1(n","))
Comments