OFFSET
1,1
LINKS
Colin Barker, Table of n, a(n) for n = 1..1000
EXAMPLE
135 is in the sequence because 135^3 = 2460375, which contains exactly seven different digits.
MATHEMATICA
Select[Range[500], Length[Union[IntegerDigits[#^3]]]==7&] (* Vincenzo Librandi, Nov 07 2014 *)
PROG
(PARI) s=[]; for(n=1, 600, if(#vecsort(eval(Vec(Str(n^3))), , 8)==7, s=concat(s, n))); s
(Magma) [n: n in [0..1200] | #Set(Intseq(n^3)) eq 7]; // Vincenzo Librandi, Nov 07 2014
(PARI) for(n=0, 10^3, if(#Set(digits(n^3))==7, print1(n, ", "))); \\ Joerg Arndt, Nov 10 2014
(Python)
from itertools import count, islice
def A235809gen(): return filter(lambda n:len(set(str(n**3))) == 7, count(0))
A235809_list = list(islice(A235809gen(), 26)) # Chai Wah Wu, Dec 23 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Colin Barker, Jan 19 2014
STATUS
approved