OFFSET
1,1
COMMENTS
It seems that about third of all numbers belong to the sequence.
LINKS
Jean-Marc Falcoz, Table of n, a(n) for n = 1..33333
EXAMPLE
10 has a digitsum of 1; 10/1 has 0 as remainder; 0 is a substring of 10;
11 has a digitsum of 2; 11/2 has 1 as remainder; 1 is a substring of 11;
12 has a digitsum of 3; 12/3 has 0 as remainder; 0 is not a substring of 12, thus 12 is not in the sequence;
13 has a digitsum of 4; 13/4 has 1 as remainder; 1 is a substring of 13;
...
2018 has a digitsum of 11; 2018 modulo 11 is 5; 5 is not a substring of 2018, thus 2018 is not in the sequence;
etc.
MATHEMATICA
Select[Range[200], SequenceCount[IntegerDigits[#], IntegerDigits[Mod[#, Total[ IntegerDigits[ #]]]]]>0&] (* Harvey P. Dale, Mar 03 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Eric Angelini and Jean-Marc Falcoz, Apr 10 2018
STATUS
approved