login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A048390 Digits d in decimal expansion of n replaced with d^3. 10

%I

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 17 04:49 EDT 2019. Contains 327119 sequences. (Running on oeis4.)