OFFSET
1,1
EXAMPLE
210 = 2*3*5*7 is in the sequence because 2^4 + 1^4 + 0^4 = 2 + 3 + 5 + 7 = 17.
MATHEMATICA
Rest[Select[Range[1000000], Total[Transpose[FactorInteger[#]][[1]]]==Total[IntegerDigits[#]^4]&]]
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Michel Lagneau, Oct 05 2012
STATUS
approved