OFFSET
1,1
MAPLE
for n from 1 do convert(convert(n^4, base, 10), set) ; if nops(%) = 2 then print(n) ; fi; od: # R. J. Mathar, Feb 08 2009
PROG
(Python)
A155148_list, m = [], [24, -36, 14, -1, 0]
for n in range(1, 10**6+1):
....for i in range(4):
........m[i+1] += m[i]
....if len(set(str(m[-1]))) == 2:
........A155148_list.append(n) # Chai Wah Wu, Nov 05 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Dmitry Kamenetsky, Jan 21 2009
EXTENSIONS
Two more terms from R. J. Mathar, Feb 08 2009
a(9)-a(12) from Charles R Greathouse IV, Aug 01 2010
STATUS
approved