The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A202147 Numbers k such that the sum of digits^4 of k equals Sum_{d|k, 1
 1005, 5405, 89195, 92029, 107707, 149851, 323723, 524371, 610171, 999643, 1119253, 1134227, 1728787, 1900523, 2045171, 2170451, 2668381, 3351833, 3361717, 3611227, 5364059, 6571483, 7710883, 7865659, 8938691, 9286331, 9362051, 9593833, 10841387, 11507813 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS The sequence is finite because the restricted sum of divisors of n, for n composite, is at least sqrt(n), while the sum of the fourth powers of the digits of n is at most 9^4*log_10(n+1). Last term is a(101) = 163998389. - Giovanni Resta, Oct 05 2018 LINKS Giovanni Resta, Table of n, a(n) for n = 1..101 (full sequence) EXAMPLE 1005 is in the sequence because 1^4 + 0^4 + 0^4 + 5^4 = 626, and the sum of the divisors 1< d<1005 is 3 + 5 +15 + 67 + 201+ 335 = 626. MATHEMATICA Q[n_]:=Module[{a=Total[Rest[Most[Divisors[n]]]]}, a == Total[IntegerDigits[n]^4]]; Select[Range[2, 10^7], Q] CROSSREFS Cf. A070308, A202279, A202285, A202240. Sequence in context: A350692 A013686 A153226 * A252417 A067918 A163557 Adjacent sequences: A202144 A202145 A202146 * A202148 A202149 A202150 KEYWORD nonn,base,fini,full AUTHOR Michel Lagneau, Dec 15 2011 EXTENSIONS Keywords fini and full added by Giovanni Resta, Oct 05 2018 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 29 18:27 EDT 2023. Contains 363042 sequences. (Running on oeis4.)