%I #14 Sep 08 2020 03:00:29
%S 0,1,8,10,17,18,26,27,28,45,55,62,63,71,72,81,82,89,91,99,100,107,108,
%T 109,116,125,134,136,143,144,145,153,154,161,181,188,189,197,198,199,
%U 206,207,208,215,216,224,226,233,234,235,242,243,244,253,261,262,269
%N Can express a(n) with the digits of a(n)^3 in order, only adding plus signs.
%C All terms == 0, 1 or 8 (mod 9). - _Robert Israel_, Sep 07 2020
%H Robert Israel, <a href="/A038209/b038209.txt">Table of n, a(n) for n = 1..5500</a>
%e 62^3 = 238328 and 23+8+3+28 = 62.
%p F:= proc(n, t) local d; option remember;
%p if n = t then return true fi;
%p if n < t then return false fi;
%p for d from 1 to min(ilog10(t)+1, ilog10(n)+1) do
%p if procname(floor(n/10^d), t - (n mod 10^d)) then return true fi
%p od;
%p false
%p end proc:
%p A:=select(t -> F(t^3, t), [$0..1000]); # _Robert Israel_, Sep 07 2020
%K nonn,base
%O 1,3
%A _Erich Friedman_
%E Offset changed by _Robert Israel_, Sep 07 2020