A247794 a(n)^3 is the least cube to contain exactly n distinct digits.

0, 3, 5, 12, 22, 59, 135, 289, 1018, 2326

Offset: 1

Author

Derek Orr, Sep 23 2014

Keywords

• nonn
• fini
• full
• base
• easy

Comments

"...at least n..." and "...exactly n..." yield the same sequence (i.e. this sequence is strictly increasing).

Crossrefs

Cf. A054039.

Programs

Mathematica

With[{cbs=Table[{n,Count[DigitCount[n^3],?(#>0&)]},{n,2500}]},Join[{0}, Transpose[Table[SelectFirst[cbs,#[[2]]==i&],{i,2,10}]][[1]]]] (* The program uses the SelectFirst function from Mathematica version 10 *) (* _Harvey P. Dale, Aug 20 2015 *)

PARI

a(n)= k=0;while(#vecsort(digits(k^3),,8)!=n,k++);k
vector(10,n,a(n))