OFFSET
1,2
COMMENTS
Many terms in this sequence are the same as A160818(n) but not all.
EXAMPLE
For example with 481: 481 + 814 + 148 = 1443 and 481 divides 1443.
MATHEMATICA
lst = {}; cycDigitPerms[n_Integer, b_: 10] := Module[{list = {n}, digits = IntegerDigits[n, b], len, counter, holder, next}, len = Length[digits]; counter = 1; While[counter < len, holder = digits[[-1]]; digits = Drop[digits, -1]; digits = Insert[digits, holder, 1]; list = Append[list, FromDigits[digits, b]]; counter++]; Return[list]]; Do[If[Divisible[Total@cycDigitPerms[n], n], AppendTo[lst, n]], {n, 10^5}]; lst (* Most of the code is from Alonso del Arte *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Arkadiusz Wesolowski, Jul 01 2012
STATUS
approved