OFFSET
1,3
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..450
Patrick De Geest, Numbers whose digits occur with same frequency
FORMULA
a(n) = A052047(n)^3. - Andrew Howroyd, Aug 11 2024
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
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Dec 15 1999
EXTENSIONS
Offset corrected by Andrew Howroyd, Aug 11 2024
STATUS
approved