A278936 Cubes whose largest decimal digit is 3.

1331, 1030301, 1331000, 1003003001, 1030301000, 1331000000, 1000300030001, 1003003001000, 1030301000000, 1331000000000, 1000030000300001, 1000300030001000, 1003003001000000, 1030301000000000, 1331000000000000, 321302302131323213, 1000003000003000001

Offset

1,1

Links

Table of n, a(n) for n=1..17.

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

Adjacent sequences: A278933 A278934 A278935 * A278937 A278938 A278939

Keyword

nonn,base

Author

Colin Barker, Dec 02 2016

Status

approved