login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A034290 Cubes that have some nontrivial permutation of digits that is also a cube. 1
125, 512, 42875, 54872, 125000, 512000, 1030301, 1061208, 1331000, 5639752, 7529536, 8120601, 10793861, 11697083, 16974593, 17173512, 21717639, 24137569, 32461759, 35611289, 36264691, 39651821, 41063625, 42875000, 44738875 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Leading zeros are not allowed.

LINKS

Robert Israel, Table of n, a(n) for n = 1..10000

EXAMPLE

125 and 512 are both in the sequence because 5^3 = 125 and 8^3 = 512.

MAPLE

S:= {}:

for x from 1 to 10^3 do

  L:= sort(convert(x^3, base, 10));

  if assigned(R[L]) then S:= S union {x^3, R[L]}

  else R[L]:= x^3

  fi

od:

sort(convert(S, list)); # Robert Israel, Nov 12 2015

MATHEMATICA

Select[Range[360]^3, AnyTrue[Rest[FromDigits /@ Permutations@ IntegerDigits@ #], Function[x, IntegerQ@ Power[x, 1/3] && IntegerLength@ x == IntegerLength@ #]] &] (* Michael De Vlieger, Nov 12 2015 *)

CROSSREFS

Sequence in context: A128993 A061450 A067974 * A295025 A070308 A211176

Adjacent sequences:  A034287 A034288 A034289 * A034291 A034292 A034293

KEYWORD

nonn,base

AUTHOR

Erich Friedman

STATUS

approved

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 May 28 05:00 EDT 2020. Contains 334672 sequences. (Running on oeis4.)