login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A072081 Numbers divisible by the square of the sum of their digits in base 10. 9
1, 10, 20, 50, 81, 100, 112, 162, 200, 243, 324, 392, 400, 405, 500, 512, 605, 648, 810, 972, 1000, 1053, 1100, 1120, 1134, 1183, 1215, 1296, 1400, 1620, 1701, 1900, 1944, 2000, 2025, 2106, 2156, 2240, 2268, 2300, 2401, 2430, 2511, 2592, 2704, 2800, 2916 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Donovan Johnson, Table of n, a(n) for n = 1..1000

EXAMPLE

n=9477, sumdigit(9477)=27, q=9477=27.27.13.

MATHEMATICA

sud[x_] := Apply[Plus, IntegerDigits[x]] Do[s=sud[n]^2; If[IntegerQ[n/s], Print[n]], {n, 1, 10000}]

Select[Range[3000], Divisible[#, Total[IntegerDigits[#]]^2]&] (* Harvey P. Dale, May 04 2011 *)

PROG

(PARI) for(n=1, 10^4, s=sumdigits(n); if(!(n%s^2), print1(n, ", "))) \\ Derek Orr, Apr 29 2015

CROSSREFS

Cf. A005349, A003634.

Sequence in context: A284991 A269234 A160517 * A034087 A117562 A169663

Adjacent sequences:  A072078 A072079 A072080 * A072082 A072083 A072084

KEYWORD

base,nonn,easy

AUTHOR

Labos Elemer, Jun 14 2002

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified July 25 12:45 EDT 2017. Contains 289795 sequences.