login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Cubes whose largest decimal digit is 3.
7

%I #15 Sep 08 2022 08:46:18

%S 1331,1030301,1331000,1003003001,1030301000,1331000000,1000300030001,

%T 1003003001000,1030301000000,1331000000000,1000030000300001,

%U 1000300030001000,1003003001000000,1030301000000000,1331000000000000,321302302131323213,1000003000003000001

%N Cubes whose largest decimal digit is 3.

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

%e 321302302131323213 is in the sequence because 321302302131323213 = 684917^3 and its largest digit is 3.

%t Select[Range[1000010]^3,Max[IntegerDigits[#]]==3&] (* _Harvey P. Dale_, Feb 09 2019 *)

%o (PARI) select(n->vecmax(digits(n))==3, vector(1000000, n, n^3))

%o (Magma) [n^3: n in [1..2*10^7] | Max(Intseq(n^3)) eq 3]; // _Bruno Berselli_, Dec 02 2016

%Y Cf. A000578, A277947 (same for squares), A278937 (the cube roots).

%K nonn,base

%O 1,1

%A _Colin Barker_, Dec 02 2016