OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..100
MATHEMATICA
ddd4Q[n_]:=Count[DigitCount[n^4], _?(#>0&)]==4; Select[Range[5000], ddd4Q] (* Harvey P. Dale, Nov 10 2012 *)
Select[Range[4000], Length[Union[IntegerDigits[#^4]]]==4&] (* Vincenzo Librandi, Nov 07 2014 *)
PROG
(Python)
A155150_list, m = [], [24, -36, 14, -1, 0]
for n in range(1, 10**3+1):
for i in range(4):
m[i+1] += m[i]
if len(set(str(m[-1]))) == 4:
A155150_list.append(n) # Chai Wah Wu, Nov 05 2014
(Magma) [n: n in [0..4000] | #Set(Intseq(n^4)) eq 4]; // Vincenzo Librandi, Nov 07 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Dmitry Kamenetsky, Jan 21 2009
EXTENSIONS
Edited by Charles R Greathouse IV, Aug 02 2010
STATUS
approved