login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A052048 Cubes whose digits occur with the same frequency. 10
0, 1, 8, 27, 64, 125, 216, 512, 729, 1331, 1728, 2197, 4096, 4913, 5832, 6859, 9261, 10648, 13824, 19683, 24389, 32768, 42875, 54872, 68921, 205379, 238328, 287496, 328509, 389017, 421875, 438976, 592704, 681472, 804357, 912673, 2460375, 3048625 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

Nathaniel Johnston, Table of n, a(n) for n = 0..450

P. De Geest, Numbers whose digits occur with same frequency

EXAMPLE

E.g., 238328 = 62^3 -> digits 2, 3 and 8 occur each twice.

MAPLE

isA052048 := proc(n) local d, k, fr, eqfr: if(n=0)then return true: fi: d:=convert(n^3, base, 10): eqfr:=true: fr:=numboccur(d[1], d): for k from 0 to 9 do if(not member(numboccur(k, d), {fr, 0}))then eqfr:=false: break: fi: od: return eqfr: end: seq(`if`(isA052048(n), n^3, NULL), n=0..200); # Nathaniel Johnston, May 31 2011

MATHEMATICA

t={}; Do[If[Length[DeleteDuplicates[Transpose[Tally[IntegerDigits[n^3]]][[2]]]]==1, AppendTo[t, n^3]], {n, 0, 200}]; t (* Jayanta Basu, May 11 2013 *)

CROSSREFS

Cf. A052047, A045540, A052046, A052049, A052050, A052051, A052052.

Sequence in context: A050750 A100571 A125084 * A052064 A125496 A030289

Adjacent sequences:  A052045 A052046 A052047 * A052049 A052050 A052051

KEYWORD

nonn,base

AUTHOR

Patrick De Geest, Dec 15 1999

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 April 24 00:02 EDT 2019. Contains 322404 sequences. (Running on oeis4.)