OFFSET
1,1
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[10000], Union[IntegerDigits[#^3]]==Range[0, 9]&] (* Harvey P. Dale, Apr 11 2014 *)
PROG
(PARI) isok(n) = length(Set(digits(n^3))) == 10; \\ Michel Marcus, Aug 28 2013
(Python)
A119735_list, m = [], [6, -6, 1, 0]
for n in range(1, 10**6+1):
for i in range(3):
m[i+1] += m[i]
if len(set(str(m[-1]))) == 10:
A119735_list.append(n) # Chai Wah Wu, Nov 05 2014
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Dmitry Kamenetsky, Jun 15 2006
STATUS
approved