A295021 - OEIS

%I #9 Jun 21 2022 14:19:35

%S 64,216,15625,46656,50653,64000,132651,216000,262144,456533,614125,

%T 636056,1601613,1643032,2406104,2515456,3112136,3652264,6331625,

%U 10360232,13144256,15625000,41063625,46656000,50653000,52313624,55306341,56623104,64000000,66430125,100544625

%N Cubes whose largest digit is 6.

%C For any term a(n), all numbers of the form a(n)*10^3k, k >= 0, are in this sequence. We could call "primitive" the terms not of this form, i.e., those without trailing '0'.

%F a(n) = A294996(n)^3.

%e 64 is in the sequence because it is a cube, 64 = 4^3, and its largest digit is 6.

%t Select[Range[500]^3,Max[IntegerDigits[#]]==6&] (* _Harvey P. Dale_, Jun 21 2022 *)

%o (PARI) for(n=1,500, vecmax(digits(n^3))==6 &&print1(n^3,","))

%Y Cf. A294996 (the corresponding cube roots); A278936, A294663, A295025, A295022, A295023, A295024 (same for digit 3 .. 9); A295016 (same for squares).

%Y Cf. A000578 (the cubes).

%K nonn,base

%O 1,1

%A _M. F. Hasler_, Nov 13 2017