A115694 - OEIS

%I #12 Feb 24 2024 06:45:55

%S 1,8,27,343,1000,1331,8000,27000,343000,1000000,1030301,1331000,

%T 1367631,8000000,27000000,343000000,1000000000,1003003001,1030301000,

%U 1033364331,1331000000,1334633301,1367631000,8000000000,10662526601,27000000000,343000000000,1000000000000

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

%H Amiram Eldar, <a href="/A115694/b115694.txt">Table of n, a(n) for n = 1..265</a>

%H <a href="/index/Pow#powerful">Index entries for sequences related to powerful numbers</a>.

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

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

%o (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

%Y Cf. A001694, A115693.

%K nonn,base

%O 1,2

%A _Giovanni Resta_, Jan 31 2006

%E a(26)-a(28) from _Amiram Eldar_, Feb 24 2024