A115694 Cubes whose digit reversal is a powerful(1) number (A001694).

1, 8, 27, 343, 1000, 1331, 8000, 27000, 343000, 1000000, 1030301, 1331000, 1367631, 8000000, 27000000, 343000000, 1000000000, 1003003001, 1030301000, 1033364331, 1331000000, 1334633301, 1367631000, 8000000000, 10662526601, 27000000000, 343000000000, 1000000000000

Offset

1,2

Links

Amiram Eldar, Table of n, a(n) for n = 1..265

Index entries for sequences related to powerful numbers.

Example

27 = 3^3 and 72 = 2^3*3^2 is powerful.

Mathematica

Select[Range[2300]^3, Min[FactorInteger[IntegerReverse[#]][[All, 2]]]>1 || IntegerReverse[#]==1&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 08 2021 *)

Prog

(PARI) lista(kmax) = {my(c); for(k = 1, kmax, c = k^3; if(ispowerful(fromdigits( Vecrev(digits(c)))), print1(c, ", "))); } \\ Amiram Eldar, Feb 24 2024

Crossrefs

Cf. A001694, A115693.

Sequence in context: A029786 A029792 A112993 * A028935 A030089 A348585

Adjacent sequences: A115691 A115692 A115693 * A115695 A115696 A115697

Keyword

nonn,base

Author

Giovanni Resta, Jan 31 2006

Extensions

a(26)-a(28) from Amiram Eldar, Feb 24 2024

Status

approved