OFFSET
1,3
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..206
EXAMPLE
6^4 = 129_6, 83^4 = 4745_83_21, 2503^4 = 39_2503_37770081.
MATHEMATICA
Select[Range[10000], StringPosition[ToString[ #^4], ToString[ # ]] != {} &] (* Tanya Khovanova, Oct 11 2007 *)
ssQ[n_]:=Module[{idn=IntegerDigits[n], idn4=IntegerDigits[n^4]}, MemberQ[ Partition[ idn4, Length[ idn], 1], idn]]; Select[Range[10000], ssQ] (* Harvey P. Dale, Mar 13 2013 *)
PROG
(Python)
A075904_list, m = [0], [24, -36, 14, -1, 0]
for n in range(1, 10**9+1):
....for i in range(4):
........m[i+1] += m[i]
....if str(n) in str(m[-1]):
........A075904_list.append(n) # Chai Wah Wu, Nov 05 2014
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Sep 27 2002
EXTENSIONS
More terms from Tanya Khovanova, Oct 11 2007
Added 0 to sequence by Chai Wah Wu, Nov 05 2014
STATUS
approved