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,2

Comments

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

Links

Table of n, a(n) for n=1..10.

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 *)

Prog

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

Crossrefs

Cf. A054039.

Sequence in context: A368858 A013498 A161624 * A034758 A215109 A131322

Adjacent sequences: A247791 A247792 A247793 * A247795 A247796 A247797

Keyword

nonn,fini,full,base,easy

Author

Derek Orr, Sep 23 2014

Status

approved