Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%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