A038209 Can express a(n) with the digits of a(n)^3 in order, only adding plus signs.
0, 1, 8, 10, 17, 18, 26, 27, 28, 45, 55, 62, 63, 71, 72, 81, 82, 89, 91, 99, 100, 107, 108, 109, 116, 125, 134, 136, 143, 144, 145, 153, 154, 161, 181, 188, 189, 197, 198, 199, 206, 207, 208, 215, 216, 224, 226, 233, 234, 235, 242, 243, 244, 253, 261, 262, 269
Offset: 1
Examples
62^3 = 238328 and 23+8+3+28 = 62.
Links
- Robert Israel, Table of n, a(n) for n = 1..5500
Programs
-
Maple
F:= proc(n, t) local d; option remember; if n = t then return true fi; if n < t then return false fi; for d from 1 to min(ilog10(t)+1, ilog10(n)+1) do if procname(floor(n/10^d), t - (n mod 10^d)) then return true fi od; false end proc: A:=select(t -> F(t^3, t), [$0..1000]); # Robert Israel, Sep 07 2020
Extensions
Offset changed by Robert Israel, Sep 07 2020
Comments