login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A169665 Numbers divisible by the sum of 4th powers of their digits. 5
1, 10, 100, 102, 110, 111, 1000, 1010, 1011, 1020, 1100, 1101, 1110, 1121, 1122, 1634, 2000, 2322, 4104, 5000, 8208, 9474, 10000, 10010, 10011, 10100, 10101, 10110, 10200, 10412, 11000, 11001, 11010, 11100, 11210, 11220, 12502, 12521, 14758 (list; graph; refs; listen; history; text; internal format)
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

Cf. A034087, A034088, A055013, A169666.

Sequence in context: A336611 A342215 A342135 * A257795 A257950 A052009

Adjacent sequences:  A169662 A169663 A169664 * A169666 A169667 A169668

KEYWORD

nonn,base

AUTHOR

Michel Lagneau, Apr 05 2010

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 30 13:39 EDT 2021. Contains 346359 sequences. (Running on oeis4.)