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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A087144 Numbers with sum of digits not divisible by digital root. 2
 29, 38, 47, 49, 56, 58, 59, 65, 67, 68, 69, 74, 76, 77, 78, 79, 83, 85, 86, 87, 88, 89, 92, 94, 95, 96, 97, 98, 119, 128, 137, 139, 146, 148, 149, 155, 157, 158, 159, 164, 166, 167, 168, 169, 173, 175, 176, 177, 178, 179, 182, 184, 185, 186, 187, 188, 191, 193 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS A007953(a(n)) mod A010888(a(n)) > 0. LINKS Nathaniel Johnston, Table of n, a(n) for n = 1..10000 MAPLE A087144 := proc(n) option remember: local k: if(n=1)then return 29: fi: k:=procname(n-1)+1: do if(add(d, d=convert(k, base, 10)) mod (((k-1) mod 9) + 1) > 0)then return k: fi: k:=k+1: od: end: seq(A087144(n), n=1..70); # Nathaniel Johnston, May 04 2011 MATHEMATICA ndQ[n_]:=Module[{tidn=Total[IntegerDigits[n]], dr}, dr= NestWhile[Total[ IntegerDigits[#]]&, tidn, #>9&]; !Divisible[tidn, dr]]; Select[Range[200], ndQ] (* Harvey P. Dale, Apr 22 2011 *) CROSSREFS Complement of A087143. Sequence in context: A121999 A069530 A259032 * A114616 A166311 A159888 Adjacent sequences:  A087141 A087142 A087143 * A087145 A087146 A087147 KEYWORD nonn,base,easy AUTHOR Reinhard Zumkeller, Aug 18 2003 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.

Last modified September 30 12:21 EDT 2020. Contains 337439 sequences. (Running on oeis4.)