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