login
Digits d in decimal expansion of n replaced with d^3.
10

%I #17 Sep 08 2022 08:44:57

%S 0,1,8,27,64,125,216,343,512,729,10,11,18,127,164,1125,1216,1343,1512,

%T 1729,80,81,88,827,864,8125,8216,8343,8512,8729,270,271,278,2727,2764,

%U 27125,27216,27343,27512,27729,640,641,648,6427,6464,64125,64216,64343

%N Digits d in decimal expansion of n replaced with d^3.

%H Vincenzo Librandi, <a href="/A048390/b048390.txt">Table of n, a(n) for n = 0..1000</a>

%t FromDigits[Flatten[IntegerDigits/@(IntegerDigits[#]^3)]]&/@ Range[0,50] (* _Harvey P. Dale_, Jun 04 2011 *)

%o (Magma) [0] cat [StringToInteger(&cat[IntegerToString(h): h in Reverse([i^3: i in Intseq(n)])]): n in [1..50]]; // _Vincenzo Librandi_, Mar 12 2013

%o (PARI) a(n) = my(d = digits(n)); my(s = ""); for (k=1, #d, s = concat(s, Str(d[k]^3))); eval(s); \\ _Michel Marcus_, Nov 06 2016

%Y Cf. A048391, A048392, A048393, A048394.

%K nonn,base

%O 0,3

%A _Patrick De Geest_, Mar 15 1999