10 lines
496 B
Text
10 lines
496 B
Text
ClearAll[NivenQ]
|
|
$HistoryLength = 0;
|
|
NivenQ[n_Integer] := Divisible[n, Total[IntegerDigits[n]]]
|
|
sel = Select[Range[100000000], NivenQ];
|
|
i = FoldPairList[{#2 > #1, Max[#1, #2]} &, 0, Differences[sel]];
|
|
gapindex = Range[Count[i, True]];
|
|
nivenindex = Pick[Range[Length[i]], i];
|
|
nivennumber = Pick[Most[sel], i];
|
|
gap = sel[[nivenindex + 1]] - sel[[nivenindex]];
|
|
Grid[{gapindex, gap, nivenindex, nivennumber} // Transpose // Prepend[{"gap index", "gap", "niven index", "niven number"}], Frame -> All]
|