This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A048390 #17 Sep 08 2022 08:44:57 %S A048390 0,1,8,27,64,125,216,343,512,729,10,11,18,127,164,1125,1216,1343,1512, %T A048390 1729,80,81,88,827,864,8125,8216,8343,8512,8729,270,271,278,2727,2764, %U A048390 27125,27216,27343,27512,27729,640,641,648,6427,6464,64125,64216,64343 %N A048390 Digits d in decimal expansion of n replaced with d^3. %H A048390 Vincenzo Librandi, <a href="/A048390/b048390.txt">Table of n, a(n) for n = 0..1000</a> %t A048390 FromDigits[Flatten[IntegerDigits/@(IntegerDigits[#]^3)]]&/@ Range[0,50] (* _Harvey P. Dale_, Jun 04 2011 *) %o A048390 (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 A048390 (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 A048390 Cf. A048391, A048392, A048393, A048394. %K A048390 nonn,base %O A048390 0,3 %A A048390 _Patrick De Geest_, Mar 15 1999