OFFSET
1,1
EXAMPLE
22011 = 3*11*23*29 is in the sequence because 2^5 + 2^5 + 0^5 + 1^5 + 1^5 = 3 + 11 + 23 + 29 = 66.
MATHEMATICA
Rest[Select[Range[8000000], Total[Transpose[FactorInteger[#]][[1]]]==Total[IntegerDigits[#]^5]&]]
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Michel Lagneau, Oct 05 2012
STATUS
approved