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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A051004 Numbers divisible both by their individual digits and by the sum of their digits. 2
1, 2, 3, 4, 5, 6, 7, 8, 9, 12, 24, 36, 48, 111, 112, 126, 132, 135, 144, 162, 216, 222, 224, 264, 288, 312, 315, 324, 333, 336, 396, 432, 444, 448, 555, 612, 624, 648, 666, 735, 777, 864, 888, 936, 999, 1116, 1122, 1128, 1164, 1212, 1224, 1236, 1296, 1332 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

No zero digits permitted. [Harvey P. Dale, Dec 18 2011]

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Digit

MATHEMATICA

ddQ[n_]:=Module[{idn=IntegerDigits[n]}, !MemberQ[idn, 0] && Divisible[ n, Total[idn]]&&And@@Divisible[n, idn]]; Select[Range[1400], ddQ] (* Harvey P. Dale, Dec 18 2011 *)

PROG

(Haskell)

a051004 n = a051004_list !! (n-1)

a051004_list =  [x | x <- a005349_list,

                     x == head (dropWhile (< x) a034838_list)]

-- Reinhard Zumkeller, Mar 03 2012

CROSSREFS

Cf. A005349, A034838, A038369.

Sequence in context: A227224 A236750 A001102 * A032575 A038186 A118575

Adjacent sequences:  A051001 A051002 A051003 * A051005 A051006 A051007

KEYWORD

nonn,nice,base

AUTHOR

Eric W. Weisstein

EXTENSIONS

Offset corrected by Reinhard Zumkeller, Mar 03 2012

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 November 16 03:09 EST 2018. Contains 317252 sequences. (Running on oeis4.)