OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
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]&]]
PROG
(PARI) isok(k) = vecsum(factor(k)[, 1]) == vecsum(apply(x -> x^4, digits(k))); \\ Amiram Eldar, Mar 03 2026
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Michel Lagneau, Oct 05 2012
STATUS
approved
