A065877 Non-Niven (or non-Harshad) numbers: numbers which are not a multiple of the sum of their digits.

11, 13, 14, 15, 16, 17, 19, 22, 23, 25, 26, 28, 29, 31, 32, 33, 34, 35, 37, 38, 39, 41, 43, 44, 46, 47, 49, 51, 52, 53, 55, 56, 57, 58, 59, 61, 62, 64, 65, 66, 67, 68, 69, 71, 73, 74, 75, 76, 77, 78, 79, 82, 83, 85, 86, 87, 88, 89, 91, 92, 93, 94, 95, 96, 97, 98, 99, 101

Offset: 1

Author

Henry Bottomley, Nov 26 2001

Keywords

• base
• nonn

Comments

A188641(a(n)) = 0; A070635(a(n)) > 0. - Reinhard Zumkeller, Apr 07 2011

Examples

			13 is in the list because 13 is not a multiple of 1 + 3 = 4.
		

Links

• Harry J. Smith, Table of n, a(n) for n = 1..1000

Crossrefs

Complement of A005349. Cf. A003635, A007953, A065878.

Cf. A188643.

Programs

Haskell

import Data.List (findIndices)
a065877 n = a065877_list !! (n-1)
a065877_list = map succ $ findIndices (> 0) $ map a070635 [1..]
-- Reinhard Zumkeller, Apr 07 2011

Mathematica

Select[Range[101],!IntegerQ[#/Total[IntegerDigits[#]]] &] (* Jayanta Basu, May 05 2013 *)

PARI

isok(k) = {(k % sumdigits(k)) != 0} \\ Harry J. Smith, Nov 03 2009