A048391 -id:A048391 - cp's OEIS frontend

A048392 Squares resulting from procedure described in A048391.

0, 1, 64, 729, 81, 100, 6400, 1252161, 72900, 8100, 51251281, 10000, 11881, 134351281, 640000, 125216100, 34327881, 7290000, 810000, 811801, 12515120641, 5125128100, 1000000, 1001216164, 100821681, 1018081, 10188864, 1188100

Offset: 1

Patrick De Geest, Mar 15 1999

nonn

Cf. A048390, A048391.

Offset corrected by Michel Marcus, Oct 19 2016

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

Original entry on oeis.org

0, 1, 8, 27, 64, 125, 216, 343, 512, 729, 10, 11, 18, 127, 164, 1125, 1216, 1343, 1512, 1729, 80, 81, 88, 827, 864, 8125, 8216, 8343, 8512, 8729, 270, 271, 278, 2727, 2764, 27125, 27216, 27343, 27512, 27729, 640, 641, 648, 6427, 6464, 64125, 64216, 64343

Offset: 0

Patrick De Geest, Mar 15 1999

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Cf. A048391, A048392, A048393, A048394.

[0] cat [StringToInteger(&cat[IntegerToString(h): h in Reverse([i^3: i in Intseq(n)])]): n in [1..50]]; // Vincenzo Librandi, Mar 12 2013

FromDigits[Flatten[IntegerDigits/@(IntegerDigits[#]^3)]]&/@ Range[0,50] (* Harvey P. Dale, Jun 04 2011 *)

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

cp's OEIS Frontend

A048392 Squares resulting from procedure described in A048391.

Views

Author

Keywords

Crossrefs

Extensions

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

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

PARI