[go: up one dir, main page]

login
Revision History for A052071 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
a(n)^3 is the smallest cube whose digits occur with the same frequency n.
(history; published version)
#16 by Susanna Cuyler at Sat Oct 12 19:09:06 EDT 2019
STATUS

proposed

approved

#15 by Michel Marcus at Sat Oct 12 12:17:20 EDT 2019
STATUS

editing

proposed

#14 by Michel Marcus at Sat Oct 12 12:17:18 EDT 2019
LINKS

P. Patrick De Geest, <a href="http://www.worldofnumbers.com/samedigits.htm">Numbers whose digits occur with same frequency</a>

MATHEMATICA

While[x = i^3; Union@DeleteCases[DigitCount[x], 0] != {n}, i++];

STATUS

proposed

editing

#13 by Robert Price at Sat Oct 12 12:12:42 EDT 2019
STATUS

editing

proposed

#12 by Robert Price at Sat Oct 12 12:12:37 EDT 2019
MATHEMATICA

Table[i = 0;

While[x = i^3; Union@DeleteCases[DigitCount[x], 0] != {n}, i++];

i, {n, 7}] (* Robert Price, Oct 12 2019 *)

STATUS

approved

editing

#11 by Susanna Cuyler at Thu Aug 23 02:12:39 EDT 2018
STATUS

proposed

approved

#10 by Giovanni Resta at Wed Aug 22 18:38:52 EDT 2018
STATUS

editing

proposed

#9 by Giovanni Resta at Sun Aug 19 15:38:43 EDT 2018
DATA

0, 11, 888, 2830479, 120023142, 6351783105, 267745815817

EXTENSIONS

a(7) from Giovanni Resta, Aug 19 2018

STATUS

approved

editing

#8 by Bruno Berselli at Wed Aug 12 04:54:24 EDT 2015
STATUS

reviewed

approved

#7 by Joerg Arndt at Wed Aug 12 04:35:08 EDT 2015
STATUS

proposed

reviewed