This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A176995 Numbers that can be written as (m + sum of digits of m) for some m. 4

%I

%S 2,4,6,8,10,11,12,13,14,15,16,17,18,19,21,22,23,24,25,26,27,28,29,30,

%T 32,33,34,35,36,37,38,39,40,41,43,44,45,46,47,48,49,50,51,52,54,55,56,

%U 57,58,59,60,61,62,63,65,66,67,68,69,70,71,72,73,74,76,77

%N Numbers that can be written as (m + sum of digits of m) for some m.

%C Complement of A003052, range of A062028.

%H _Reinhard Zumkeller_, <a href="/A176995/b176995.txt">Table of n, a(n) for n = 1..10000</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/SelfNumber.html">Self Number</a>

%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Self_number">Self number</a>

%e a(5) = 10 = 5 + (5);

%e a(87) = 100 = 86 + (8+6);

%e a(898) = 1000 = 977 + (9+7+7);

%e a(9017) = 10000 = 9968 + (9+9+6+8).

%o a176995 n = a176995_list !! (n-1)

%o a176995_list = f 1 [] where

%o f n nonSelf | n `elem` nonSelf = n : f (n+1) nonSelf'

%o | otherwise = f (n+1) nonSelf'

%o where nonSelf' = take (9 * a055642 n) (a062028 n : nonSelf)

%Y Cf. A062028, A007953, A055642.

%K nonn,base

%O 1,1

%A _Reinhard Zumkeller_, Aug 21 2011

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .