This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A161861 Cubes which are anagrams of squares 1
 1, 64, 729, 1000, 2197, 4096, 9261, 15625, 19683, 21952, 46656, 64000, 91125, 110592, 117649, 132651, 157464, 216000, 226981, 262144, 328509, 343000, 373248, 531441, 592704, 614125, 681472, 729000, 884736, 912673, 1000000, 1061208, 1157625 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS 2197 is in the list because is a cube (13^3) and 7921 (an anagram of 2197) is a square(89 * 89) If k is present then so is 1000k. Cube root of n's: 1, 4, 9, 10, 13, 16, 21, 25, 27, 28, 36, 40, 45, 48, 49, 51, 54, 60, 61, 64, ..., . Leading zeros in squares are allowed, i.e. an anagram of 1000 is 0001. - Chai Wah Wu, Nov 04 2016 LINKS Robert G. Wilson v and Chai Wah Wu, Table of n, a(n) for n = 1..10000 a(n) for n = 1..872 from Robert G. Wilson v. MATHEMATICA fQ[n_] := Union[ IntegerQ@ Sqrt@ FromDigits@ # & /@ Permutations@ IntegerDigits@ n][[-1]] == True; lst = {}; Do[ If[ fQ[n^3], AppendTo[lst, n^3]; Print[n^3]], {n, 1650}] (* Or for larger n's *) (* first do *) Needs[ "Combinatorica`" ] (* then *) fQ[ n_ ] := Block[ {id = IntegerDigits@n, k = 1, mx = Floor[ Log[ 10, n ] +1 ]! +1}, While[ k < mx && !IntegerQ@ Sqrt@ FromDigits@ UnrankPermutation[ k, id ], k++ ]; If[ k != mx, True, False ] ] CROSSREFS Includes A001014 Sequence in context: A182674 A048392 A274219 * A179149 A074471 A164345 Adjacent sequences:  A161858 A161859 A161860 * A161862 A161863 A161864 KEYWORD nonn,base AUTHOR Claudio Meller, Jun 20 2009 EXTENSIONS Edited, corrected, extended by Robert G. Wilson v, Jun 30 2009 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.

Last modified June 17 18:57 EDT 2019. Contains 324198 sequences. (Running on oeis4.)
{"found_math": false, "script_math_tex": 0, "script_math_asciimath": 0, "math_annotations": 0, "math_alttext": 0, "mathml": 0, "mathjax_tag": 0, "mathjax_inline_tex": 0, "mathjax_display_tex": 0, "mathjax_asciimath": 0, "img_math": 0, "codecogs_latex": 0, "wp_latex": 0, "mimetex.cgi": 0, "/images/math/codecogs": 0, "mathtex.cgi": 0, "katex": 0, "math-container": 0, "wp-katex-eq": 0, "align": 0, "equation": 0, "x-ck12": 0, "texerror": 0, "url": "http://oeis.org/A161861", "fetch_time": 1560812434000000000, "content_mime_type": "text/html", "warc_filename": "crawl-data/CC-MAIN-2019-26/segments/1560627998581.65/warc/CC-MAIN-20190617223249-20190618005249-00448.warc.gz", "warc_record_offset": 127409550, "warc_record_length": 3958, "token_count": 749, "char_count": 2046, "score": 3.578125, "int_score": 4, "crawl": "CC-MAIN-2019-26", "snapshot_type": "latest", "language": "en", "language_score": 0.6292253136634827, "file_path": "/sailhome/yjruan/project/latent-lm/data/processed/finemath-4plus/finemath-4plus/train-00001-of-00064.parquet"}