|
|
A330929
|
|
Starts of runs of 6 consecutive Niven (or Harshad) numbers (A005349).
|
|
9
|
|
|
1, 2, 3, 4, 5, 10000095, 10000096, 12751220, 14250624, 22314620, 22604423, 25502420, 28501224, 35521222, 41441420, 41441421, 51004820, 56511023, 57002424, 70131620, 71042422, 71253024, 97740760, 102009620, 111573020, 114004824, 121136420, 124324220, 124324221
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Cooper and Kennedy proved that there are infinitely many runs of 20 consecutive Niven numbers. Therefore this sequence is infinite.
|
|
REFERENCES
|
Jean-Marie De Koninck, Those Fascinating Numbers, American Mathematical Society, 2009, p. 36, entry 110.
|
|
LINKS
|
|
|
EXAMPLE
|
10000095 is a term since 10000095 is divisible by 1 + 0 + 0 + 0 + 0 + 0 + 9 + 5 = 15, 10000096 is divisible by 16, ..., and 10000100 is divisible by 2.
|
|
MATHEMATICA
|
nivenQ[n_] := Divisible[n, Total @ IntegerDigits[n]]; niv = nivenQ /@ Range[6]; seq = {}; Do[niv = Join[Rest[niv], {nivenQ[k]}]; If[And @@ niv, AppendTo[seq, k - 5]], {k, 6, 10^7}]; seq
|
|
PROG
|
(Magma) f:=func<n|n mod &+Intseq(n) eq 0>; a:=[]; for k in [1..30000000] do if forall{m:m in [0..5]|f(k+m)} then Append(~a, k); end if; end for; a; // Marius A. Burtea, Jan 03 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|