login
A278936
Cubes whose largest decimal digit is 3.
7
1331, 1030301, 1331000, 1003003001, 1030301000, 1331000000, 1000300030001, 1003003001000, 1030301000000, 1331000000000, 1000030000300001, 1000300030001000, 1003003001000000, 1030301000000000, 1331000000000000, 321302302131323213, 1000003000003000001
OFFSET
1,1
FORMULA
a(n) = A278937(n)^3.
EXAMPLE
321302302131323213 is in the sequence because 321302302131323213 = 684917^3 and its largest digit is 3.
MATHEMATICA
Select[Range[1000010]^3, Max[IntegerDigits[#]]==3&] (* Harvey P. Dale, Feb 09 2019 *)
PROG
(PARI) select(n->vecmax(digits(n))==3, vector(1000000, n, n^3))
(Magma) [n^3: n in [1..2*10^7] | Max(Intseq(n^3)) eq 3]; // Bruno Berselli, Dec 02 2016
CROSSREFS
Cf. A000578, A277947 (same for squares), A278937 (the cube roots).
Sequence in context: A122659 A226716 A076443 * A263613 A052076 A013795
KEYWORD
nonn,base
AUTHOR
Colin Barker, Dec 02 2016
STATUS
approved