A101318 Numbers n such that Sum_of_Digits modulo n <= 2.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 20, 100, 101, 110, 200, 1000, 1001, 1010, 1100, 2000, 10000, 10001, 10010, 10100, 11000, 20000, 100000, 100001, 100010, 100100, 101000, 110000, 200000, 1000000, 1000001, 1000010, 1000100, 1001000, 1010000, 1100000, 2000000

Offset

1,2

Comments

The first 9 natural numbers, then the numbers with Sum_of_Digits <= 2. - Stefan Steinerberger, Feb 07 2006

Links

Table of n, a(n) for n=1..42.

Example

sum(10)=1 and 1 mod 10 <= 2

Mathematica

Select[Range[10001000], Mod[Total[IntegerDigits[#]], #]<3&] (* Harvey P. Dale, May 06 2018 *)

Prog

(Perl) #!/usr/local/bin/perl -w for $i (1..1000000){ @j = split "", $i; $sum=0; for (@j){ $sum += $_; } print "$i, " if ($sum % $i <=2); } __END__

Crossrefs

Sequence in context: A055933 A188650 A132578 * A337925 A130575 A330760

Adjacent sequences: A101315 A101316 A101317 * A101319 A101320 A101321

Keyword

nonn

Author

gamo (gamo(AT)telecable.es), Dec 23 2004

Extensions

More terms from Stefan Steinerberger, Feb 07 2006

Corrected by Harvey P. Dale, May 06 2018

Status

approved