OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Digit.
FORMULA
Numbers k such that A055013(k) | k.
EXAMPLE
12521 is a term since 1^4 + 2^4 + 5^4 + 2^4 + 1^4 = 659, and 12521 = 19*659;
89295 is a term since 8^4 + 9^4 + 2^4 + 9^4 + 5^4 = 17859, and 89295 = 5*17859.
MAPLE
A:= proc(n) add(d^4, d=convert(n, base, 10)) ; end proc: for n from 1 to 200000 do:if irem( n, A(n))=0 then printf(`%d, `, n):else fi:od:
MATHEMATICA
Select[Range[15000], Divisible[#, Plus @@ (IntegerDigits[#]^4)] &] (* Amiram Eldar, Jan 31 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Apr 05 2010
STATUS
approved