%I #23 Sep 08 2022 08:46:17
%S 0,1,2,3,4,5,6,7,8,9,1000,1042,2000,3000,4000,5000,6000,7000,8000,
%T 9000,321213,642426,1000000,1042000,2000000,3000000,4000000,5000000,
%U 6000000,7000000,8000000,9000000,10121026,302102103,321213000,604204206,642426000,1000000000
%N Integers m such that A048390(m) is a cube.
%C Integers that become cubes when their digits d are replaced with d^3.
%C Sequence is infinite, since 10^(3*k) is a term for all k.
%e For m <= 9, 1-digit integers, A048390(m) = m^3 so all integers <= 9 are terms of this sequence.
%o (PARI) isok(n) = my(d = digits(n)); my(s = ""); for (k=1, #d, s = concat(s, Str(d[k]^3))); ispower(eval(s), 3);
%o (Magma) f:=func<n|StringToInteger(&cat[IntegerToString(h): h in Reverse([c^3: c in Intseq(n)])])>; [0] cat [k:k in [1..8000000]|IsPower(f(k),3)]; // _Marius A. Burtea_, Feb 13 2020
%Y Cf. A000578, A048386, A048390.
%K nonn,base
%O 1,3
%A _Michel Marcus_, Nov 06 2016
%E a(34)-a(38) from _Jinyuan Wang_, Feb 13 2020